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SECTION  ' 

MOOS  FILING  SYSTEM 


3.1.  INTRODUCTORY  REMARKS 

The  MOOS  Filing  System  has  been  developed  to  allow 
multiple  user  operations  using  the  OLPARS  subset  under  MULTICS. 
Each  user  is  provided  with  a temporary  data  storage  area  as 
well  as  a set  of  more  permanent  data  files.  The  temporary  area 
(the  process  directory)  contains  his  current  system  description 
(files  "sysdata",  "scratch"  and  "display")  and  his  current  data 
trees.  His  permanently  assigned  area  (the  working  directory) 
provides  file  entries  for  data  which  may  be  utilized  on  a day- 
to-day  basis  as  well  as  a hardcopy  dump  area  for  delayed  print- 
out. In  addition  to  the  permanent  user  area,  the  central  system 
contains  the  object  programs  available  under  OLPARS  and  a data 
storage  area  from  which  data  may  be  transferred  into  any  user's 
temporary  data  area.  Under  the  MULTICS  structure,  each  user  has 
access  to  the  programs  in  the  central  system  directory  (the 
default  working  directory  for  all  users)  for  operations  upon 
data  in  his  own  process  directory.  Source  programs  for  MOOS  are 
stored  in  the  central  system  directory.  System  programmers  may 
add  and  modify  programs  from  "OLPARS"  to  produce  object  versions 
within  that  directory. 

Within  the  user's  process  directory  each  data  tree  is 
represented  by  a file  under  the  name  of  the  data  tree  and  a set 
of  data  files  named  via  a concatenation  of  a data  tree  character 
and  a data  class  name.  The  data  tree  characters  are  represented 
by  upper  case  letters  from  A through  T;  a system  limit  of 
20  trees  is  imposed. 

A variety  of  structured  data  files  have  been  designed  to 
accommodate  data  in  the  OLPARS  format.  These  files  are  created 
and  manipulated  in  the  user's  process  directory  by  the  system 
programs  and  their  existence  is  transparent  to  the  system  user. 
Therefore,  multiple  users  may  operate  the  MOOS  programs  on 
independent  data  sets.  The  files  will  be  described  in  the 
following  order: 

Standard  Process  Directory  Files  (these  files  exist  when 
the  user  is  executing  MOOS  programs  and  are  deleted  at  signoff 
time)  . 

o "sysdata"  file  (Section  3.2.1.) 

o "scratch"  file  (Section  3.2.2.) 

o "display"  file  (Section  3.2.3.) 

a)  one- space  display 

b)  two- space  display 

c)  rank  order  display 

d)  confusion  matrix  display 


Variable  Process  Directory  Files  (each  user  has  a number 
of  these  files  in  existence  at  any  time  MOOS  programs  are  being 
executed;  they  are  deleted  at  signoff  time). 

o TREEN'AME  files , (Section  3.3.1) 

o DATACLASS  files  (Section  3.3.2.) 

o MOOSLOGIC  files  (Section  3.3.3.) 

a)  header  and  structure  area 

b)  pairwise  logic  file 

c)  grouped  partition  logic  - 1-space 

d)  grouped  partition  logic  2-space 

e)  grouped  Boolean,  logic 

f)  nearest  mean  vector  logic 

g)  closed  decision  boundary  logic 

h)  independent  Boolean  reject  logic 

i)  logic  error  files 

Standard  Central  System  Directory  Files  and  Directories 
(each  of  these  files  is  maintained  permanently  in  the  central 
system  directory) . 

o ”option_file"  file  (Section  3.4.1) 

o "trandata"  directory  (Section  3.4.2) 

o "seg_o_trees"  file  (Section  3.4.2) 

o "olpars"  archive 

Standard  User  Working  Directory  Files  and  Directories 
(each  user  is  allowed  to  store  data  in  a permanent  directory; 
data  from  this  directory  are  deleted  only  by  user  command)  . 

o "saved_trees”  directory  (Section  3.5.1) 

o "seg_o_trees"  file  (Section  3.5.2) 

o "vectors"  file  (Section  3 . 5 . 3 ) 

o "seg_o_logic"  file  (Section  3.5.4) 
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3.2.1. 
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"sysdata"  File 

The  "sysdata”  file  (Figure  3-1)  is  created  upon  initial- 
ization of  the  MOOS  System  and  serves  as  the  primary  system  data 
index  for  the  user.  Major  information  headings  to  be  found  in 
"sysdata"  are:  (1)  current  system  status  (64  words);  (2)  a list 
of  data  trees  currently  maintained  by  the  system  (80  words);  and 
(3)  a tree  structure  table  indexing  all  data  classes  currently 
being  maintained  by  the  system  (3948  words) . The  system  status 
(CSS)  section  is  maintained  in  the  first  64  words  of  the  file. 
Each  system  program  is  responsible  for  maintaining  accurate  cur- 
rent entries  in  the  CSS  block.  The  section  containing  the  list 
of  data  trees  (FOREST)  will  be  updated  by  any  system  program  res- 
ponsible for  data  input,  transformation  or  deletion.  A maximum 
of  twenty  (20)  trees  may  be  maintained  concurrently.  Finally, 
the  portion  containing  the  tree  structure  tables  (SCHOOL)  is  an 
open-ended  section  which  will  link  each  data  class  in  the  system 
to  its  appropriate  tree  and  provide  structure  to  each  tree. 
Virtually  all  system  functions  will  require  information  from  this 
block  and  therefore  a number  of  subroutines  which  facilitate 
access  to  this  portion  of  "sysdata"  have  been  described  below. 

The  following  parameters  are  contained  in  the  CSS  block 
as  depicted  graphically  in  Figure  3-1. 

CSS1  The  data  tree  currently  being  analyzed.  An  eight- 
character  string  using  two  computer  words. 

CSS2  The  data  class  name  currently  being  analyzed.  A four- 
character  string  using  one  computer  word  (the  string 
"****"  signifies  the  senior  node  of  the  current  tree) . 

CSS3  The  current  tree  index  number.  An  integer  value  repre- 
senting the  current  data  tree.  The  legal  value  ranges 
from  1 to  20.  The  tree  character  may  be  found  by  adding 
100g  to  the  tree  index  representing  the  tree,  thus  con- 
verting the  tree  index  to  an  ASCII  character  between  A 
and  T (101g  to  124g) . 

CSS4  The  last  node  entry  index.  A fixed  binary  (integer)  num- 
ber referring  to  the  highest  slot  number  which  contains 
meaningful  information  in  the  SCHOOL. 


CSS5  The  system  option  currently  operating  (this  item  must  be 
reset  by  each  major  system  program).  A fixed  binary 
(integer)  number  indexing  a location  in  the  "option-file" 
list  (see  Section  2,  subroutine  "option"). 
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Figure  3-1:  "sysdata 


ormat 


II 


CSS6  36  Sense  Switches  which  may  be  utilized  to  direct 

variable  system  operations  under  the  "sense  n v"  option, 
where  n is  an  integer  value  from  1 to  36  and  designates 
the  sense  switch  to  be  set,  and  v represents  the  value 
(0  or  1)  to  which  it  will  be  set.  See  the  user's  manual 
write-up  on  sense  for  a description  of  the  various 
uses  of  the  sense  switches. 

CSS7  A temporary  buffer  area. 

CSS8  The  cutoff  value  for  the  two-space  display  stored  in 

integer  format.  A two-space  cluster  display  will  be  gen- 
erated automatically  if  the  number  of  vectors  to  be  displayed 
is  greater  than  the  value  of  CSS8  (otherwise  a two-space 
scatter  display  will  be  generated) . 

CSS9  The  bin  factor  for  the  one-space  display  stored  in  integer 
format.  The  bin  factor  determines  the  number  of  columns 
in  the  one -space  display. 

The  parameters  listed  below  describe  one  entry  in  the 

FOREST  block.  Twenty  (20)  null  tree  entries  are  defined  in  this 

block  by  the  system  initialization  routine. 

FI  The  TREENAME  associated  with  this  FOREST  entry.  An  eight- 
character  string  using  two  computer  words . Null  entries 
(entries  for  which  no  tree  currently  exists  within  the 
system)  are  denoted  by  the  character  string  "notatree"  in 
this  parameter . 

F2  The  number  of  dimensions  for  the  data  tree  in  this  entry. 
There  is  no  requirement  in  MOOS  to  maintain  a consistent 
number  of  measurements  among  trees  currently  active  within 
the  system.  The  twelve  (12)  high-order  bits  of  word  3 of 
each  tree  entry  are  associated  with  this  parameter  and 
the  format  is  fixed  binary  (integer) . 

F3  The  number  of  nodes  in  the  next  lowest  tree  level  is 

contained  in  the  central  12  bits  of  word  3 of  each  tree 
entry  in  fixed  binary  (integer)  format.  By  definition, 
this  item  is  the  number  of  a priori  data  classes  input 
with  the  data  tree. 

F4  The  index  of  the  first  node  entry  associated  with  the 

data  tree.  A fixed  binary  (integer)  value  in  the  lowest 
twelve  (12)  bits  of  each  data  tree  entry. 

F5  The  number  of  vectors  in  the  entire  data  tree.  A fixed 

binary  (integer)  number  occupying  one  full  computer  word. 
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The  parameters  for  one  entry  in  the  SCHOOL  block  are 
described  below.  All  data  classes  for  all  trees  in  the  system 
are  defined  within  this  block,  linked  together  via  pointers  with- 
in each  entry.  The  CSS4  parameter  indicates  the  current  extent 
of  this  table. 

51  The  CLASSNAME  associated  with  this  SCHOOL  entry.  A 
four-character  string  using  one  computer  word.  Null 
entries  (entries  for  which  data  classes  once  existed 
but  have  been  deleted)  are  denoted  by  the  character 
string  "nono"  in  this  parameter. 

52  The  number  of  dimensions  for  the  data  class  in  this  entry 
The  twelve  (12)  high-order  bits  of  word  2 of  each  node 
entry  are  associated  with  this  parameter;  the  format  is 
fixed  binary  (integer) . 

53  The  number  of  data  classes  in  the  next  lowest  tree  level 
is  contained  in  the  central  twelve  (12)  bits  of  word  2 
of  each  class  entry  in  fixed  binary  (integer)  format. 

This  parameter  will  be  set  by  the  structure  analysis  par- 
tition routine  during  data  class  partition  operations. 

54  The  index  of  the  first  node  associated  with  the  subsets 
of  this  data  class.  A fixed  binary  (integer)  value  in 
the  lowest  twelve  (12)  bits  of  each  data  tree  entry. 

55  The  number  of  data  vectors  contained  in  this  data  class. 

A fixed  binary  (integer)  value  occupying  one  full  com- 
puter word. 

56  The  level  (or  depth)  of  the  data  class  within  the  data 
tree  hierarchy.  The  senior  node  is  assigned  depth  1,  the 
a priori  nodes  depth  2,  etc.  This  value  is  contained  in 
the  twelve  (12)  higher  order  bits  of  word  4 within  each 
entry . 

57  The  index  of  the  senior  data  class  associated  with  this 
data  set.  For  each  a priori  data  class,  then,  this  value 
points  to  the  entry  in  the  FOREST  block  associated  with 
the  appropriate  data  tree. 

58  The  index  of  the  next  class  on  the  current  level  which 
is  associated  with  this  tree.  The  final  class  within 
each  level  will  contain  a value  of  0 in  parameter  S8 . 

3.2.2.  "scratch"  File 


The  "scratch"  file  is  maintained  in  each  user's  temporary 
storage  area.  "scratch"  is  utilized  to  pass  transient  data  from 
one  internal  system  module  to  another  and  to  provide  variable 
length  arrays  as  necessary  to  prevent  unneeded  system  limitations 


Since  "scratch”  is  maintained  in  a virtual  memory  environment, 
array  assignments  within  this  file  will  be  generated  by  no  other 
limitations  than  program  and  data  requirements.  Although  no 
specific  "scratch"  arrangement  may  be  expected  upon  entrance  to 
a user- specif ied  program,  internal  system  programs  may  require 
a detailed  setting  of  as  much  of  the  scratch  array  as  is  needed 
to  perform  its  computations. 

3.2.3.  "display"  File 

The  "display"  file  contains  all  information  necessary  to 
regenerate  the  last  system  display  produced.  Four  major  types 
of  system  displays  have  been  defined:  one-space  data  plots  (with 
microview  and  macroview  versions) , two-space  data  plots  (scatter 
and  cluster  plots) , rank  order  measurement  displays  (as  in  the 
measurement  evaluation  operation  under  1604B  OLPARS) , and  confu- 
sion matrix  displays  for  logic  evaluation  operations.  Each  pro- 
gram wishing  to  modify  the  "display"  file  may  determine  the 
appropriateness  of  its  action  by  checking  word  1 of  the  file 
(system  display  code:  0 - no  display;  1 - two-space  display;  2 - 
rank  order  display;  3 - confusion  matrix;  4 - one-space  display). 
When  a display  program  is  called,  word  1 may  be  checked  to  deter- 
mine whether  it  is  to  generate  a new  display  (word  1 = 0)  or  re- 
generate an  old  one  (word  1 = n , where  n is  the  display  number 
assigned  to  the  routine) . 

Two-space  display  (display  code  = 1)  settings:  The 

system  two-space  displays  (cluster  and  scatter  plots)  utilize 
two  files  ("display"  and  "csdata")  to  generate  the  data  mapping. 
The  "csdata"  file  is  a list  of  x and  y data  projections.  (Note: 
these  two  files  are  utilized  in  the  same  manner  for  the  one-space 
data  projections  but  their  use  is  transposed  - "display"  is  the 
data  projection  file) . 
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D1 

D2 

D3 

D4 
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D6 

D7 


system  display  code 

0 not-set 

1 2-space 

2 rank-order 

3 confusion  matrix 
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data  set  projection  flag 
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2 - data  set  already  projected 

"original"  min's  and  max's  stored  as  xmin , xmax, 
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cluster/scatter  flag 

0 cluster  plot 

1 scatter  plot 


relative  position  flag 
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D9-^  sequence  flag 
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1 - set 
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sequence  number  - total  number  of  times  a given  display 
has  been  sequenced. 
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Dl3i 

number 

D132 

0 - 

1 - 

D133 

number 

D134 

1 

number 

for  this  class 

index  to  relative  posil 
display  for  this  class 


3-10 


- — — 


D14]^-D1428 


D15i, 

D16 

D17 

D18 


x,y  coordinates  of  boundary  #1  and  convex  pt. 

#1 

x,y  coordinates  of  boundary  #2  and  convex  pt . 

#2 

D152*ndim  x>y  projection  vectors 

number  of  points  in  projection  image 
cluster  image  2160  words 

D17^  class  symbol  D172  intensify  0 - no  1 - yes 

relative  position  (relpos)  area 

D18i  total  number  of  entries  for  each  class 

DI82  number  of  distinct  relative  positions  for  each 
class 

DI83  relative  position 

DI84  number  of  vectors  at  this  relative  position 


I 


*m*mr*rn 


Word 


Rank  Order 


5+ncls 

6+ncls 


5+ncls+ndim 

6+ncls+ndim 


5+ncls+3*ndim 

6+ncls+3*ndim 


5+ncls+4,,!,ndim 
6+nc 1 s+4*ndim 


5+ncls+(4+ncls)*ndim 
6+nc 1 s+ ( 4+nc 1 s ) *ndim 


Dl; 


ITT 


Dlb 


D3 


"5E 


D4b 


D5 


D6l 


D6  ncls 


D7i  D8i  | D9x  DIOi 


D7ndiml  ^ndinf^ndim 


DIO 


ndim 


Dll 


i. 


D12x 


Dll 


adia 


D13l 


D13ndim 


D14i,i 


ndim,  1 


D-*-^l  .ncls 


ndim, ncls 


D15l,2,l 


Uft 


ndim, 2 , 1 


p+ncls+(4+ncls+ 


*hcls*(ncls-l)  )v^di 


1 


Ui^l ,ncls , 1 


p15ndim,ncls  ,nc.ls  -1 


Dlb=system  display 
code 

ndim 


sort  order 
D4a=tree  character 
ncls 


\ 

(data 


class  names 


^display  information 
fsee  description) 


lisplay  sorting 
area 


* 


D(Xp) 


I 


|Pclass  (i)  ^p) 


Dclass(i)  ,class(j)^P 


Figure  3-4:  Rank  Order  "display"  file  format 
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Rank  Order  Display  (display  code  = 2)  Settings: 


(used  by  hardcopy  routine) 


18  bits 


if  current  option  is  rnk$oall 
if  current  option  is  rnk$mbc  or  rnk$mbcp 
if  current  option  is  rnk$bcls 
if  current  option  is  rnk$bycp 


system  display  code 


18  bits 


if  D7 , D8,  D9,  DIO  are  to  be  recomputed 
Rank-order  display 


dimensionality  of  data 
order  of  sorting  information 

0 - ascending 

1 - descending 

tree  character 

(used  by  hardcopy  routine) 

= measurement  number  if  D1  =1 

a 

= class  character  if  D1  = 2 

3 

= classpair  (char/char)  if  D1  =3 

3 

number  of  classes 


27  bits 


D6  data  class  names  to  take  place  in  display 

D7-ul0  information  to  be  displayed  on  screen: 

D7  if  has  been  turned  on 

D8  class  best  destinguished  by  this  measurement 

D9  & DIO  classpair  best  distinguished  by  this  measurement 

D11&D12  area  in  which  data  are  sorted  for  display 

Dll  relative  index  into  D7-D10  block  to  show  to 

which  measurement  the  associated  D12  value 
corresponds 

D12  value  to  be  sorted 

D13  measurement  discrimination  for  measurement  X 

P 

D14  measurement  discrimination  for  class (i)  on  measurement  Xp 

D15  measurement  discrimination  for  classpair  i,j  on  measure- 

ment X 

P 
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Cl 

C2 

C3 

C4 

C5 

C6 

C7 

C8 

C9 

CIO 

Cll 

C12 

C13 

C14 

C15 

C16 

C17 

C18! 


C18tncls 


Confusion  Matrix  "display"  file  format  (continued! 


91  + tncls  * (lncls+7) 


C27 


116  + tncls  * (lncls+7) 


116  + tncls  * (ncls+7)  + lncls 


116  + tncls  * (lncls+8)  + lncls 


117  + tncls  * (lncls+8)  + lncls 

(2*C30) 


I 

s 


Confusion  Matrix  "displa 
file  format 


’*? — 


o Confusion  Matrix  display  (display  code-3)  settings : 


system  display  code  (3  for  confusion  matrix) 
an  integer  representing  the  display  type . 

0 indicates  confusion  matrix  summary 

1 indicates  confusion  matrix  to  the  screen 

2 indicates  confusion  matrix  to  the  printer 
4 indicates  confusion  matrix  summary  to 

go  to  the  screen  only 
number  of  true  classes  (tncls) 
number  of  dimensions 
not  used 

total  number  of  vectors 
total  number  correct 
total  number  errors 
total  number  rejects 
overall  7.  correct 
overall  7>  error 
overall  7,  reject 

number  of  assigned  classes  (lncls) 

set  to  1 for  overall  evaluation,  2 for  partial 
pairwise  evaluation,  3 for  partial  nearest  mean 
vector  evaluation,  5 for  partial  closed  decision 
boundary  evaluation,  and  6 for  subroutine  logic 
evaluation 


8 -character  treename  of  the  data  set  on  which 
logic  was  designed 

4-character  nodename  of  the  data  set  on  which 
logic  was  designed 
reject  flag  - set  to  1 if  there  were  rejects, 

0 if  no  rejects 

an  array  of  length  tncls  containing  the 
4-character  nodenames  of  the  true  classes 
number  of  vectors  in  each  true  class 
number  of  correctly  classified  vectors  in  each 
true  class 

number  of  errors  in  each  true  class 
number  of  rejects  in  each  true  class 
an  array  of  length  lncls  containing  a "column" 
of  the  confusion  matrix 
% correct  for  each  true  class 
T.  error  for  each  true  class 


70  reject  for  each  true  class 
an  array  of  25  unused  words 
an  array  of  length  lncls  containing  the  4- 
character  nodenames  of  the  assigned  classes 
an  array  of  length  tncls  containing  the  number 
of  favorably  broken  ties  for  each  true  class 
number  of  pairwise  logic  nodes 
a pairwise  logic  node  number 


the  threshold  vote  count  set  for  the  preceding 
C31  entry  6 
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Note:  if  C30  is  zero,  then  C31  and  C32  entries  are  left  out 

i.e.  the  C33  array  follows  C30. 


C14i 

C142 

C143 

C15! 


326+ndim 

327+ndim 

328+ndim 

329+ndim 


^■^■^ndim 

C16 


C17p 

C17! 


3 2 9+nd im+nb in 
3 3 0+n  d im+nb in 
3 2 9+nd  inH-2*nb  in 
330+ndim+2*nbin 


^^nbin 

C17p 

C17l 

C17nbin 


Figure  3-8:  One-Space  Display  "csdata" 

format 
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number  of  classes 


C4 

C5 

C6 

C7 


C8 

C9i 

C92 

CIO! 

CIO2 

Cll! 

Cll2 

C12 

C13j. 

C132 

C133 

C134 

C135 

C136 


view 

0 - macro 

1 - micro 

type  of  scaling 

0 - probabilities 

1 - counts 

data  projection  flag 

0 - data  needs  to  be  projected  and  (min.  and 

max . ) calculated 

1 - data  needs  to  be  projected  and  (min.  and 

max.)  supplied 

2 - data  already  projected 

3 - min.  and  max.  supplied  by  calling  routine 

(the  range  used  is  the  range  of  the  data 
or  the  supplied  range,  whichever  is 
greater) 

sort  flag 

0 - data  needs  to  be  sorted  into  bins 

1 - data  already  sorted 

"original"  xmin 
"original"  xmax 
"current"  xmin 
"current"  xmax 

sequence  flag 

0 - not  set 

1 - set 


sequence  number  (#  of  times  sequenced) 

number  of  bins  (nbin) 

classname 

eliminate 

0 - no 

1 - yes 

intensify 

0 - no 

1 - yes 

index  to  this  class'  binned  data  (C17g) 

index  to  this  class'  projected  data  in  "display" 

number  of  vectors  of  this  class 

the  C13  block  repeated  for  a possible  72  classes 
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. 


- - 


Cl^ 

number  of  boundaries 

C142 

x-coordinate  of  boundary  1 

C143 

x-coordinate  of  boundary  2 

C15^  - 

C15ndim  projection  vector 

C16 

max.  prob/count  of  all  displayed  classes 

C17 

is  "bin  area"  and  repeated  for  each  clas 
C17q  - max  prob  of  this  class 

Cl 7 i - prob  of  each  bin 
Cl7nbin 

MO 


number  of  entries 
class  name 


1 


MO 


Ml0 


Ml-^  intensify 

0 - no 

1 - yes 

Ml 2 number  of  vectors  in 

class  in  range 

M13-Ml2+nblnc 

prob/count  of  each  bin 


2 

3 

4 


M2q  class  name 


4+nbin 


M2i 

intensify 

5+nbin 

M2  2 

number  of  vectors  in 
class  in  range 

6+nbin 

M23-M224nbinc 

7+nbin 

prob/count  of  each  bin 

8+nbin 

Mlp 

Mlx 


Ml  2 


M12+nbin 


M2q 

M2X 

El 

M2  3 


8+2*nbin 


M22+nbin 

M3q 


Figure  3-9:  One -Space  Micro  View  "microbuff" 

format 


i 
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3.3.  VARIABLE  TEMPORARY  DIRECTORY  FILES 
3.3.1.  TREENAME  Files 

The  TREENAME  files  are  created  during  data  input  or 
transformation.  They  consist  of  one  data  segment  for  each  tree 
in  the  current  system  and  are  accessed  by  the  eight-character 
treename  associated  with  the  data  tree.  The  information  con- 
tained in  the  treename  files  consists  of  (1)  information  concern 
ing  the  lowest  nodes  currently  in  the  tree,  and  (2)  a table  of 
mean  vectors  and  packed  covariance  matrices  containing  one  entry 
for  each  node  in  the  data  tree. 

The  parameters  discussed  below  describe  the  format  of 
files  accessed  under  data  tree  names  (Figure  3-10): 

LI  The  number  of  classes  within  the  data  tree.  This  para- 

meter defines  the  extent  of  the  COVMEAN  block  described 
below  and  is  maintained  in  the  twelve  (12)  higher-order 
bits  of  word  1 of  the  LOWNODE  block. 

L2  The  number  of  dimensions  associated  with  this  tree;  main 

tained  in  the  intermediate  twelve  (12)  bits  of  word  1. 

L3  The  number  of  lowest  nodes  in  the  data  tree. 

L4  A 24-word  array  which  is  currently  not  used. 

L5  A table  of  data  class  names  which  represent  the  variable 

portion  of  the  data  filenames  under  the  data  tree.  Each 
of  the  72  entries  occupies  one  computer  word. 

The  following  parameter  list  describes  an  entry  within 
the  COVMEAN  block  of  the  treename  file.  The  number  of  entries 
currently  being  maintained  is  found  in  parameter  LI  of  the  LOW- 
NODE  block. 

CM1  The  four-character  nodename  associated  with  the  data 
class  represented  by  the  entry. 

CM2  The  number  of  data  vectors  contained  in  the  data  class. 

CM3  A table  of  floating  point  numbers  representing  the 

mean  vector  for  the  data  class.  The  table  contains  one 
value  for  each  measurement  associated  with  the  data  tree 
(parameter  L2  in  the  LOWNODE  block  of  the  file) . 

CM4  A table  of  floating  point  numbers  representing  the 
packed  covariance  matrix  for  the  data  class. 
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Figure  3-10  treename  File 

Format 


3.3.2. 


The  DATACLASS  Files 


The  DATACLASS  Files  are  created  during  data  input,  struc- 
ture analysis  partition  or  transformation.  They  consist  of  one 
data  segment  for  each  lowest-order  node  of  each  data  tree  and 
are  accessed  by  a five-character  filename  consisting  of  a one- 
character  tree  index  and  a four-character  data  class  name.  The 
first  twenty  upper  case  letters  are  used  as  tree  index  characters 
and  are  automatically  appended  to  the  appropriate  data  class  name 
when  data  vectors  are  to  be  accessed.  Each  data  vector  file 
has  a two-word  header  followed  by  the  data  vectors  associated 
with  the  data  class.  The  two-word  header  consists  of:  (1)  the 
number  of  vectors  in  the  file,  and  (2)  the  number  of  measure- 
ments (dimensions)  associated  with  each  vector  in  the  file.  Each 
data  vector,  then,  is  represented  by  a list  of  floating  point 
words  followed  by  an  integer  value  representing  a pre-assigned 
vector  identification  value  (in  the  case  of  card  input  data, 
this  value  is  sequentially  assigned  at  input  time;  tape  input 
data  will  contain  these  values  within  each  vector) , and  by  a 
four-character  permanent  data  class  name.  Thus,  each  vector 
will  be  maintained  in  the  filing  system  as  (NDIM  + 2)  words  of 
data  (Figure  3-11)  . 

D1  An  integer  value  representing  the  number  of  vectors  in 

the  data  class  file. 

D2  An  integer  value  representing  the  number  of  dimensions 

in  the  data  vectors  within  the  data  class  file. 

D3  A table  of  floating  point  numbers  representing  the  data 

measurements  for  each  vector. 

D4  A pre-assigned  integer  value  representing  the  identifi- 

cation value  assigned  to  each  data  vector. 

D5  A four-character  identification  representing  a perman- 

ent data  class  name  (the  class  name  attached  to  the  vec- 
tor upon  its  entry  into  the  system) . 

3.3.3.  MOOSLOGIC  Files 

The  MOOSLOGIC  files  are  created  by  the  logic  design 
modules  and  are  accessed  by  a valid  eight-character  treename 
concatenated  with  the  appropriate  data  class  name  and  augmented 
with  the  characters  "logic."  The  various  logic  designs  avail- 
able to  the  MOOS  user  have  been  described  in  Section  2.  Data 
logic  files  are  described  below  in  several  sections  since  the 
format  varies  for  each  logic  type: 
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o header  and  logic  structure  block 

o pairwise  logic  block 

o grouped  partition  logic  - one-space 

o grouped  partition  logic  - two-space 

o grouped  Boolean  logic 

o nearest  mean  vector  logic 

o independent  Boolean  reject  logic 

3 . 3 . 3 . 1 . MOOSLOGIC  Header  and  Logic  Structure  Block 

The  upper  portion  of  the  MOOSLOGIC  file  contains  the 
header  and  logic  structure  information  required  to  identify  and 
index  the  logic  stored  below. 


A. 

Header  Section 

SHI 

current  logic  node  (integer  value) 

SH2 

number  of  dimensions  of  the  data  class  (integer  value) 

SH3 

number  of  lowest  data  class  nodes  (integer 

value) 

SH4 

contains  an  outdated  flag  formerly  used  by 

sin 

SH5 

index  to  next  available  logic  block  (integer  value) 

SH6 

last  logic  node  to  have  been  defined 

SH7 

flag  setting  for  creation  of  group  logic, 
the  logic  to  be  created  is  group  logic 

If  set  = 1 

B. 

(for  1 < i < 128)  Logic  Node  Descriptions 

SN1  • - 

(9  bits)  logic  type  of  node  i 

1 

if  0 - undefined 

1 - pairwise 

2 - group 

3 - nearest  mean  vector 

SN2 . - 

l 

(9  bits) 

superior  logic  node  number 

SN3.  - 

(9  bits) 

number  of  logic  nodes  below  node  i at  next  level 

SN4.  - 

l 

(9  bits) 

8th  bit  is  set  if  this  node  has  been 
bv  modlO.  9th  bit  is  set  if  this  is 
logic  node 

modified 
a lattice 

SN5 . - 

l 

(72  bits) 

a parallel  bit  map  to  the  data  class 
the  structure  part  of  the  MOOS  logic 
(SCI  and  SC2) 

section  of 
file 

if  1 - corresponding  class  is  present 
0 - not  present 

SN6^  - (36  bits)  relative  index  from  the  beginning  of  the  file 

to  the  logic  block  for  this  logic  node. 


(36  bits)  relative  index  from  the  beginning  of  the  file 
to  the  reject  strategy  logic  block  for  this 
logic  node.  0 - means  no  reject  strategy  defined 

(36  bits  - 4 characters)  reassociated  data  class  name 
(only  applicable  to  lowest  nodes) 

(f°r  I f SH3)  Data  Class  Descriptions 

(36  bits)  data  class  name  (four  characters) 

(36  bits)  a table  parallel  to  SCI  giving  the  a priori 
probability  of  a vector  from  class.. 

i 

Cost  Matrix 

SH3*  (SH3+1)  array  of  costs  associated  with  mi  sc'iassi- 

fi 'arums  or  ■•eieot 


HEADER  PART  OF  STRUCTURE  SECTION  OF  MOOSLOGIC  FILE 


current  logic  node 
number  of  dimensions 
number  of  lowest  nodes 
not  used 

index  to  next  logic  block 
index  to  last  logic  defined 


NODE  PART  OF  STRUCTURE  SECTION  OF  MOOSLOGIC  FILE 


SN3^  j SN4| | type/sup.  node/no . of  nodes 

below/flags 

classes  at  node  bit  map 

index  to  logic  block  for 

this  node 

index  to  reject  strategy  block 
reassociated  data  class  name 


SN7i 


1112^ 


__i 

SN5i28 


SN6]_28 


SN7i28 


SN8128 


801 


t 

E 

k 


I * 


800+2*SH3 
800+2*SH3+l| 


800+2*SH3 
+ NDIM(NDIM+1) 


SCll 

SC12 

SC1SH3 


SC2^ 


SC2' 


S62 


SH3 


SCM1 


SCM2 


SCMNLOW(NLOW+l) 


Figure  3-*12 : Format  for  Header  and 

Structure  of  M00SL0GIC  File 


LPRla 


minimum  vote  count 


LPRlb 
LPR2 (1) 

LPR2 (ncls) 


number  of  classes  present  (ncls) 
node  number  of  class 

node  number  of  class 


LPR2 (ncls+1) 
LPR3 (1) 

LPR4 

LPR5 

LPR6 


LPR8  and 
LPR9 

LPR10 


node  number  of  reject  node 
(3  bits) 

if  LPR6  = 1/3,  then  LPR3  = number  of  thresholds 
if  LPR6  = 2/4,  then  LPR3  = number  of  boundaries 

(15  bits)  length  of  auxiliary  criteria  block 
of  this  pair 

(9  bits)  option  number  of  routine  which  created, 
or  last  modified,  logic  for  this  pair 

(9  bits)  type  of  logic  for  pair: 

1 - Fisher 

2 - optimal  discriminant  plane 

3 - any  one-space 

4 - any  two- space 

5 - linguistic  logic 

(9  bits)  if  a class  pair  is  denoted  by  "A/B", 

(9  bits)  then  LPR9=node  number  of  "A";  LPR8= 
node  number  of  "B" 

(18  bits)  index  to  criteria  block 


LPR11 

LPR12 


index  to  auxiliary  criteria  block  (if  any)  for 
this  pair 

(ndim  words)  coefficients  of  Fisher  discriminant 


LPR13 


(ndim  words)  coefficients  of  line  perpendicular 
to  Fisher  direction 


LPR14  (5  words)  five  thresholds  along  Fisher  direction 

LPR15  logic  blocks  for  modified  pairwise  logic 


mtmm 


LPRla 


LPRlb 


LPR2 (1) 


LPR2 (ncis) 

LPR2(nc^s+^^ 

9 bits 

9 bits 

15  bits 

3 bits 

LPR6 (1) 

LPR5 (1) 

LPR4(1) 

LPR3 (1) 

LPR10(1)  j LPR9 (1)  LPR8 (1) 


Header 

A/B 


LPR6 (N) J LPR5 (N)  \ LPR4(N)  | LPR3(N) 


LPRIO(N)  LPR9 (N)  | LPR8(N) 


LPR11 (1) 


LPR12 (1 , 1) 


H eader 
Y/Z 


LPR12(ndim, 1) 


LPR13  (1,1) 
LPR13(ndim, 1) 


LPRJ4(1,1) 

LPR14C5.1) 


LPR14(5 ,N) 


5 


\ criteria 
I block  A/B 
N of  these 
* blocks  where 
\ N= 

1 ncls*(ncls-l) 


Figure  3-13:  Pairwise  Logic  Format  for 

MOOSLOGIC  File 


3. 3. 3. 3.  Logic  Block  Format  for  One-Space  Group  Logic 


L0S1  (9  bits)  2 - to  represent  one-space  group 

L0S2  (9  bits)  option  number  of  routine  which  created  logic 

L0S3  (9  bits)  number  of  boundaries 

L0S4  (9  bits)  not  used 

L0S5  (9  bits)  node  number  associated  with  right-most  region 

L0S6  (9  bits)  node  number  associated  with  left-most  region 

L0S7  (9  bits)  node  number  associated  with  middle  region 

L0S8  (9  bits)  not  used 

L0S9  ndim  discriminant  coefficients 

LOSIO^  right  threshold  value,  set  for  either  1 or  2 boundaries 
L0S10o  left  threshold  value  if  there  are  2 boundaries 


2/option  no. /NBNDS/N. U. 
rmost'/most‘/middle'N-U- 


ndim  coefficient 


threshold  right  boundary 


threshold  left  boundary 
if  it  exists 


I 


! 


3.3 .3.4 


Logic  Block  Format  For  2 Space  Group  Logic 


LGP1 


LGP2 


LGP3 

LGP4 


LGP5 


LGP6 


LGP7 


LGP8 

LGP9i 


(9  bits) 


(9  bits) 


(9  bits) 
(9  bits) 
(9  bits) 


(9  bits) 


(9  bits) 


(9  bits) 

(36  bits)  - 


LGP10lfl>1  ' 

► 

LGPlOi ' i f SH2 
LGPlli(1 

LGP10iLGP91(l 

LGPiOi ,LGP9iSH2 j 
LGP11i>LGP9i,LGP9 


1 - to  represent  plane-type 
logic . 

option  number  of  routine  which 
created  this  logic 

number  of  boundaries  drawn 

not  used 

logic  node  number  associated 
with  excess  region 

logic  node  number  associated 
with  convex  side  of  boundary  1 

logic  node  number  associated  with 
convex  side  of  boundary  2 

not  used 

number  of  line  segments  in 
boundary  1 

discriminant  coefficients  of 
first  boundary  for  line  segment  1 
(floating  point  numbers) 


threshold  value  for  line  segment  1 
of  boundary  1 

discriminant  coefficients  of 
boundary  1 for  line  segment  LGP9i 


threshold  value  for  line  segment 
LGP9i  of  boundary  1 
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only  exists  if  2 boundaries  are  drawn 


± 

LGP92 

-LGP102(l,i  - 

. 

LGP102,1,SH2 

_LGP112,i 

~LGP102)Lgp92,1 

lgp102,LGP92;SH2 

LGP112)lGP92 


number  of  line  segments  in  boundary  2 

coefficients  of  line  segment  1, 
boundary  2 


threshold  value  of  line  segment  1, 
boundary  2 


coefficients  of  line  segment  LGP92 
boundary  2 


threshold  value  for  line  segment 
LGP92 , boundary  2 


Note:  The  second  boundary  stored  is  always  on  the  "excess" 

side  of  the  first  boundary  stored.  1st  and  2nd  here 
do  not  refer  to  the  order  in  which  the  boundaries  were 
drawn . 


■ Ml 


LGP1 

LGP2 

LGP3 

LGP4 

LGP5 

LGP6 

LGP7 

LGP8 

LGP9i 

LGP101(i,i 


LGP101,1,NDIM 

LGPll^i 

LGPlOi ,2,2 

LGPlOi^.NDM 

LGP11i>2 

LGP10i>lgp9i 

LGP10l,LGP91(NDIM 

lgp111,LGP9i 

LGP92  (only  if  2nd 
. line  seg.) 


1/opt. no. /NBNDS/N.U. 
excess^  convex  NIJ/c  or^e^N  I^kU 


N Lines  1st  boundary 

Ioefficient  1st  line  seg. 

boundary  1 

threshold  1st  line  boundaryl 


[coefficient  last  line  seg. 
boundary  1 


i 


threshold  last  line  seg. 
boundary  1 

\ same  for  boundary  2 
j (if  it  exists) 


Figure  3-15:  Group  Logic  - Two- Space 

Format  For  MOOSLOGIC  File 
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3.5  Logic  Block  Format  for  Boolean  Logic  Block 


33  words 


Figure  3-16:  Grouped  Boolean  Logic  Format 

for  MOOSLOGIC  Files 


(9  bits) 

(9  bits) 

(9  bits) 

(9  bits) 

(9  bits) 

(9  bits) 

(33  words) 


"3"  to  represent  Boolean  logic 

option  number  of  routine  which  created 
logic 

number  of  Boolean  statements  (always 
set  to  "1”  by  linglogc) 

not  used 

node  number  of  the  logic  node  corresponding 
to  the  true  "side”  of  the  Boolean 
statement 

node  number  of  the  logic  node  corresponding 
to  the  false  "side"  of  the  Boolean 
statement 

132  character  (max)  Boolean  statement 


3. 3. 3. 6. 

N 

X 

Y 

NM1 

NM2 (i) 

NM3 

NM4 

NM5 

NM6 

NM7 (i) 

NM8 (i , j ) 
NM9(i,j) 

NM10 (i , j ) 


Nearest  Mean  Vector  Logic  Block 

= number  of  dimensions 

= N x (N+l)  / 2 

= 3 + 2NM1  + (NM1  - 1 ) ( 2TST  + X) 

= number  of  classes 

= logic  node  number  assignment  for  class  (i) 

= nmv  logic  code  (=6) 

= nmv  option  number  (=63) 

= boundary  flag 

0 - no  rejects 

1 - reject 

= weight  flag 

0 - no  weighting 

1 - weighting  vector 

2 - weighting  matrix 

= reject  value  for  class  (i)  , equal  to  the’  ‘r 

square  of  the  user's  input  value 

= j ^ component  of  mean  of  class  i 

= j t*1  component  of  weighting  vector  for  class 

(=  inverse  of  j1-*1  variance  for  class  i) 

= j component  of  packed  inverse  covariance 

matrix  of  class  i 
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NM1 
NM2 (1) 


NM2 (NMl) 

NM2 (REJECT) 

NM3  NM4  [ NM5  NM6 
NM7 (1) 


3+2NM1 
4+2  NM1 

3+2NM1+N 

4+2NM1+N 

3+2NM1+2N 

4+2NM1+2N 

3+2NM1+2N+X 

Y+l 

Y+N 

Y+l+N 

Y+2N 

Y+1+2N 

Y+2N+X 


Figure  3-17:  Nearest  Mean  Vector  Logic 

Format  for  MOOSLOGIC  Files 


S 


Cdl  - no.  of  classes 

Cd2(l)  - Cd2(ncls)  - logic  node  numbers  assigned  to  each  class 

Cd3  - reject  logic  node  number 

Cd4  - not  used 

Cd5(l)  - Cd5(ncls)  - indices  to  specific  logic  blocks  (set  up 

parallel  to  Cd2) 

Cd6  - not  used 

Cd7  - 1 if  user  requested  that  a tree  be  created  from 

"overlap"  vectors,  0 otherwise. 

CdS  - logic  type:  1 = hyperrectangular , 2 = hyperspheri- 

cal,  3 = hyperellipsoid 

Cd9  - basis  vector  type:  1 = coordinate,  2 = eigenvectors 

3 = eigenvectors  of  the  specific  class 

CdlO  - not  used 

Cdll(l)  - Cdll(ndim)  - set  to  0 if  the  thresholds  are  based  on 

the  range  of  the  data,  1 if  they  are 
user-defined 

Cdl2(l)  - Cdl2(ndim)  - low  thresholds  along  each  measurement 

Cdl3(l)  - Cdl3(ndim)  - high  thresholds  along  each  measurement 

Cdl4  - 0 for  coordinate  vectors  or  eigenvectors  of  a 

specific  class  basis  vectors  types.  Index  to  basis 
vectors  for  eigenvectors  of  entire  data  set  basis 
vectors  type 

Cdl5  - basis  vectors  ( not  stored  for  coordinate  vectors 

basis  type) 

Cdl6  - center  vector  type:  1 = mean  of  the  class,  2 = 

median  of  the  class,  3 = user-defined 
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1-Y*VT>'T' 


Cdl7  - not  used 

Cdl8(l)  - Cdl8(ndim)  - center  vector 

Cdl9  - set  to  0 if  the  radius  is  based  on  the  range  of  the 

data,  1 if  the  radius  is  user-defined 

Cd20  - radius  squared  of  hypersphere 

Cd21  - axis  length  type:  1 = Mahalanobis  (axes  = 

eigenvalues),  2 = range  of  data,  3 = user-defined 

Cd22(l)  - Cd22(ndim)  - axis  lengths 

Cd23  - "C"  value  type:  0 = based  on  the  range  of  the  data, 

1 = user-defined.  (the  "C"  value  is  a quantity 

analogous  to  the  radius  of  a hypersphere) 

Cd24  - "C"  value 


Cd25 


weighting  matrix 


Header  of  closed  decision  boundary  logic  block 


(ncls  = No.  of  classes)  1 

2 


~C3I~ 

Cd2, 


1 + ncls 


Cd2 


ncls 


ncls 


logic  node 
numbers 


2 + ncls  Cd3 reject  node  no. 

3 + ncls  Cd4 

4 + ncls  Cd5^  indices  to 

logic  blocks 

for  each  class 


3 + 2*ncls  Cd5  , 

ncls 

4 + 2*ncls Cd6 

5 + 2*ncls  Cd7 
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specific  logic 
blocks  for  each 
of  the  classes 


Hyperrectangular  closed  decision  boundary  logic  block 


1 

2 

3 

4 


5 

6 


1 + 3*ndim 

2 + 3*ndim  j 

r 

3 + 3*ndim 


4 + 3*ndim 

5 + 3*ndim 


Cd8 


Cd9 


CdlO 


Cdll, 


Cdl2. 


Cdl3, 


T 


Cdll 

ndim 


Cdl2  .. 
ndim 


Cdl3 


ndim 


Cdl4 


Cdl5 


X 


1,1 


Cdl5 


1 , ndim 


C^^ndim , ndim 


type  = 1 


*N 


repeated  for  each 
dimension  (high 


i r and  low  thres- 


holds) 


\ 

I \ 


basis  vectors 


1 
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Hyperellipsoid  closed  decision  boundary  logic  block 


I 

i 


1 

2 

3 

4 


4 + ndim 

5 + ndim 


5 + 2*ndim 

6 + 2*ndim 

7 + 2*ndim 


Cd8 


Cdl6 


Cdl7 


Cdl8, 


Cdl8 


ndim 


Cd21 


Cd22, 


Cd22 


ndim 


Cd23 


Cd24 


Cd25 


1,1 


Cd25 


1 ,ndim 


Cd25 


type  = 3 


r 


center  vector 


- axis  lengths 


’C"  value 


weighting  matrix 


ndim, ndim 


i 


• Logic 

block  format: 

irl 

(1  word) 

not  used. 

ir2 

(1  word) 

set  to  logic  node  number  of  first  (if 
there  are  more  than  one)  logic  node  to 
use  this  Boolean  reject  statement. 

ir3 

4 

(33  words) 

132- character  (max) Boolean  reject 
statement . 

^Mfl 


3. 3. 3. 9.  Logic  Error  Files 


Any  or  all  of  the  following  files  are  created  by  the 
logic  evaluation  routines  to  store  incorrectly  classified  vec- 
tors . 

"error  f"  file  format 

"error_f"  contains  a three-  or  four-word  entry  for  each 
vector  which  is  misclassif ied,  tied,  or  rejected  by  any  logic 
evaluation  routine.  If  the  vector  "went  through"  either  a pair 
wise  or  a nearest  mean  vector  logic  node,  then  the  E2  entry 
exists  and  points  to  an  entry  in  a specific  error  file  (either 
pair_error_f ile  or  nmv_error_f ile)  containing  additional  infor- 
mation about  the  error. 


EO  true  class 

El  error  type:  1 - group  (including  one-space,  two-space, 

and  Boolean) 

2 - pairwise 

3 - nearest  mean  vector 

4 - independent  reject 

E2  The  E2  entry  exists  only  for  types  2,  3,  and  5.  For 

type  2 it  points  to  an  entry  in  the  pair_error_file ; 
for  type  3 it  points  to  an  entry  in  the  nmv_error_f ile ; 
for  type  5 it  points  to  an  entry  in  the  box  error  file. 


E3 


The  ID  number  of  the  vector  in  error 


The  logic  node  number  of  the  logic  node  to  which  the 
vector  was  assigned 


"pair_error_file"  file  format 

pair  error_file  contains  specific  information  regarding 
vectors  whicK  are  misclassif ied , tied  or  rejected  at  pairwise 
logic  nodes.  It  is  generated  by  the  internal  subroutine  pair- 
wise_logic  and  the  evaluation  routines. 


P4^ , tncls-1 


this  block  re- 
peated for  each 
misclassif ied 
vector 


I lncls+1  [ 

I i 

i l 

lncls  number  of  classes  in  the  logic  tree 

tncls  number  of  data  classes  being  evaluated 
PI  logic  node  number  of  true  class 

P2  set  to  minimum  vote  count  threshold  by  evaluation  rou- 

tines. If  the  error  was  the  result  of  a tie,  the  num- 
ber of  tied  class  counters  is  inserted  by  pairwise_logic , 
If  the  error  was  not  the  result  of  a tie,  P2  is  set  to 


number  of  classes  associated  with  pairwise  node  where 
the  error  occurred. 

(9  bits)  (lncls-1)  entries  containing  the  logic  node 
number  to  which  the  vector  was  assigned  in  each  decision 
box  involving  the  true  class. 

(12  bits)  (lncls+1)  entries  containing  the  vote  counts 
at  each  logic  node. 


(Nl) 

(N2) 


(18  bits)  number  of  ties 

(18  bits)  set  to  logic  node  number  of  the  true  class  by 
evaluation  routines.  If  the  error  was  not  the  result 


of  a tie  or  reject,  N2  is  set  to  0 by  nmv_logic.  If 
the  error  was  caused  by  a reject,  boundary  N2  is  set  to 
1.  If  the  error  was  a tie,  N2  is  set  to  2. 

(N3)  distance  to  the  true  class 

(N4)  an  array  of  four  character  class  names.  If  N2  is  1, 

these  names  represent  the  closest  classes  to  the  vec- 
tor. If  N2  is  2,  these  names  are  the  classes  from  which 
the  vector  is  equidistant. 

(N5)  distance  to  the  closest  class(es)  (N2  = 0)  or  tied 
classes  (N2  = 2) 

"box_error_  f ile"  format 


box_error_file  contains  specific  information  about 
vectors  which  are  misclassif ied,  rejected,  or  assigned  to  more 
than  one  class  at  closed  decision  boundary  logic  nodes.  It  is 
generated  by  internal  subroutine  box_logic  and  the  evaluation 
routines . 


1 

B1 

B2 

i 

B3 

B4 

This  four  word  block  is 
repeated  for  each 
vector  which  is  not 
correctly  classified 


B1  (18  bits)  set  to  1 if  the  vector  was  an  error;  2 if  the 
vector  was  rejected;  3 if  the  vector  fell  into 
more  than  one  hyperregion 

B2  (18  bits)  logic  type:  1 = hyperrectangular , 2 = hyper- 

spherical,  3 = hyperellipsoid 

B3  (72  bits)  bit  map.  If  a bit  is  set,  the  vector  fell  into 
the  hyperregion  associated  with  the  class  which 
corresponds  to  the  bit  (the  name  of  the  class  is 
found  in  the  SCI  section  of  the  logic  file) 


B4  (36  bits)  not  used 


* . 


3.4.  STANDARD  PERMANENT  SYSTEM  DIRECTORY  FILES  AND 
DIRECTORIES 

3.4.1.  "option  file"  File 


The  "option_f ile"  file  is  maintained  in  the  system  de- 
fault working  directory;  it  contains  a list  of  all  variable 
options  (in  two  sections  of  256  slots  each)  and  a pointer  sec- 
tion detailing  the  menus  to  be  displayed  for  each  MOOS  function. 
Figure  3-17  describes  the  "option_f ile"  file,  utilized  by  the 
internal  system  program  "option"  to  generate  the  display  menus. 
Programmer  aids  option$list  and  option$insert  utilize  the 
”option_f ile"  file  to  list  and  modify  their  contents,  respec- 
tively . 

01  The  MOOS  function  names  section  contains  a list  of  the 
currently  implemented  MOOS  functions  in  order  of  slot 
number.  The  following  general  set  of  blocks  within 
this  section  has  been  assigned  (Section  4.1.  contains 
a list  of  MOOS  function  numbers) : 

Slot  Number  MOOS  Application 

1-19  Data  Input 

20  - 59  System  Utility 

60  - 127  Distribution  Free  Logic  Design 

128  - 195  Transformations  and  Measurement 

Evaluation 

196  - 255  Structure  Analysis 

Options  added  (via  "option$insert"  type  1 operations) 
to  this  section  of  the  file  are  directly  associated 
with  an  entry  in  the  menu  index  portion  of  the  file  (03) 

02  The  Utility  Function  names  section  contains  a list  of 
the  currently  implemented  Utility  Functions  which  may 
appear  on  menus,  but  which  do  not  have  a menu  directly 
associated  with  them.  Names  added  to  this  section 
are  assigned  to  the  first  open  block  found  within  the 
02  section. 

03  The  Menu  Index  Section  lists  up  to  12  slot  numbers 
(in  either  the  01  or  02  blocks)  to  be  displayed  as  a 
menu  associated  with  a parallel  entry  number  in  the  01 
block. 


If 
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1 

2 

3 

4 

5 

6 

511 

512 

513 

514 

3 

4 

5 

6 

7 

7 

8 
9 


MOOS  function 
name 


Utility  function 
name 


Menu  Index 


Figure  3-19:  The  "option_file"  File  Format 


i 


3.4.2. 


"trandata"  DirecCory 


The  MOOS  system  is  a multi-user  environment  providing 
each  user  with  exclusive  access  to  the  data  in  his  process  dir- 
ectory. Many  times  a user  has  a need  to  reference  a data  tree 
generated  by  another  user.  To  accommodate  this  need,  the  dir- 
ectory "trandata"  has  been  created  with  all  users  granted  unre- 
stricted access  to  the  resident  data  trees. 

Two  utility  functions  (savec,  restorec)  have  been  pro- 
vided for  the  purpose  of  (1)  depositing  (savec)  a tree  in 
"trandata",  and  (2)  restoring  (restorec)  a tree  from  "trandata" 
to  the  user's  process  directory.  A third  utility  function 
(remtree)  provides  for  the  removal  (deletion)  of  a tree  from 
"trandata" . 


There  are  two  types  of  segments  in  "trandata".  The 
first  is  a data  reference  name  which  is  automatically  inserted 
or  removed  when  the  user  executes  savec  or  remtree.  The  sec- 
ond segment  is  a file  called  "seg_o_trees" ; this  file  acts  as 
a program  directory  of  all  stored  data  tree  segments  in  "tran- 
data" and  is  also  automatically  updated  in  response  to  the  user 
commands  (see  Section  3.5.2.). 


3.4.3.  "olpars"  archive 


The  "olpars"  archive  contains  the  source  programs  for 
all  MULTICS/ OLPARS  system  programs.  Storing  source  code  in  this 
manner  provides  for  ease  of  modification  of  any  system  option 
or  internal  routine.  Since  only  those  routines  which  have  been 
changed  must  be  recompiled,  system  modifications  and  additions 
are  swift  and  simple  to  implement. 


STANDARD  PERMANENT  USER  DIRECTORY  FILES  AND 
DIRECTORIES 


"saved  trees"  Directory 


In  many  instances  a user  may  not  complete  his 
analysis  of  a data  set  (tree)  in  one  computer  session.  Normally, 
data  trees  reside  in  the  users  process  directory.  However,  this 
is  a temporary  directory  and  its  contents  are  lost  when  MULTICS 
is  shut  down  or  the  user  logs  out.  To  give  the  user  the 
ability  to  save  a tree(s)  from  one  computer  session  to  another 
a permanent  directory  called  "saved_trees"  has  been  incorporated 
into  MOOS. 


3.5  . 
3.5  .1. 


"saved_trees"  is  a subdirectory  that  is  added  to  the 
user's  own  directory,  therefore  each  user  would  have  his  own 
"saved  trees."  The  security  of  all  data  is  maintained  since 
only  the  creating  user  has  access  to  his  copy  of  "saved  trees." 

There  are  three  types  of  entries  in  this  directory; 
one  is  the  lowest  node  data  and  the  others  are  tables  called 
"seg_o_trees"  and  "seg_o_logic. " 

o lowest  node  - as  copies  of  the  various  vector 
groupings  (classes)  are  made  in  "saved_trees"  an  appropriate 
entry  is  made  to  allow  future  references  to  those  vector  groups. 

o "seg_o_trees"  - see  Section  3 . 5 . 2 . 

o "seg_o_logic"  - a list  of  logic  files  stored 
within  "saved  trees" 


3.5.2  "seg_o_trees"  File 

This  table  contains  the  name  of  each  tree  and  its 
associated  nodes  as  they  appear  in  "saved_trees"  or  "trandata. " 
This  table  is  built  automatically  by  the  program  "s_p"  when  the 
operator  executes  the  savec  or  save  options. 

It  should  be  noted  that  "saved_trees"  is  only  a 
temporary  'overnight'  storage  for  data  trees.  All  manipulation 
of  data  is  performed  on  trees  that  reside  in  the  user's  process 
directory.  For  example,  if  a user  were  to  copy  a tree  into 
"saved_trees"  and  then  perform  a partition  of  the  tree  in  the 
process  directory,  that  subsequent  operation  would  not  appear  in 
"saved  trees." 


3-59 


Naming  Convention 

As  it  appears  in  "sysdata",  each  tree  has  an  eight- 
character  name  and  each  node  a four-character  name  prefixed 
by  the  tree  symbol.  The  eight-character  tree  name  is  checked 
for  uniqueness  (an  alternate  is  requested  if  it  is  not  unique) 
and  inserted  in  "seg  o_trees"  along  with  all  four-character  node 
names  associated  with  that  tree.  Each  lowest  node  name  is  gen- 
erated by  concatenating  the  eight-character  tree  name  with  the 
four-character  node  name.  Thus,  "nodi"  in  the  "irisdata"  tree 
will  become  lowest  node  entry  "irisdatanodl . " 

"seg  o trees"  format 


count  of  entries 


tree  name 


count  of  nodes 


tree 

entry 


4 , 4+n 


node  name 


Word  0 is  a count  of  trees  currently  stored  in  "seg_o_trees" 

Words  1 through  4+n  constitute  a tree  entry  and  will  be  repeated 
for  each  tree  stored. 

Words  1 and  2 contain  an  eight-character  ASCII  tree 


Word  ?> 


contains  the  count  of  lowest  nodes  in  the 
tree 


Words  4 - 4+n  contain  a list  of  four-character  ASCII 
node  names . 

3.5.3.  saved  "vectors"  file 


The  "vectors"  file  is  a file  of  stored  projection  vec- 
tors in  the  user's  working  directory  (see  subroutines  vec$save, 
vec$list,  vec$hall,  vec$all,  vec$del)  and  is  accessed  by  arbi- 
trary vectors  projection  operations. 


' * 11  " 


I 


VI 

- 

number  of  vectors 

saved  (nsaved) 

V2 

- 

index  to  next  available  vector  (nslot) 

V3i 

- 

vector  name  (1) 

(vname^) 

V4^ 

- 

vector  length  (1) 

(vlength^ 

V5X 

- 

index  to  vector  1 

(vindex^) 

V364 

- 

vector  name  (64) 

(vname^) 

V464 

- 

vector  length  (64) 

(vlength64) 

v*64 

- 

index  to  vector  (64)  (vindexg^) 

! 

f 


3.5.4. 


"seg_o_logic"  file 


The  "seg_o_logic"  file  contains  a list  of  all  references 
under  which  MOOS  logic  files  have  been  saved  in  the  "saved_trees" 
directory  (see  subroutines  log$save,  log$rstr,  log$delt,  log$list) . 

The  "seg_o_logic"  file  acts  in  conjunction  with  the 
"saved  trees"  directory  as  a storage  area  for  MOOS  logic  files 
that  tKe  user  may  wish  to  save  from  day  to  day.  It  should  be 
noted  that,  as  with  any  saved  trees,  if  the  user  updates  his 
current  version  of  a logic  file  in  the  process  directory,  no 
change  is  made  to  the  saved  logic . 


SL1  - number  of  saved  logic  files 

SL2(i)  - eight-character  tree 

name  reference  for  saved 
logic  file(i) 

SL3(i)  - four-character  node  name 
reference  for  saved  logic 
file(i) 


: 
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SECTION  4 

MOOS  PROGRAM  DOCUMENTATION 


4.1  INTRODUCTION 

This  section,  along  with  Section  3,  is  not  aimed  toward 
the  average  MOOS  User,  but  is  for. system  programmers  who 
might  be  interested  in  modifying  or  expanding  the  MOOS 
system. 


4.2  MOOS  PROGRAM  GENERATION 

The  following  procedure  will  permit  a programmer  to  enter  a 
source  program  via  card  inputs  through  the  MULTI CS  I/O  DEAMON. 
The  rational  for  this  procedure  is  to  allow  maximum  MULTICS 
time  to  be  used  for  program  debug  and  execution.  This  tech- 
nique affords  an  off-line  generation  of  a source  deck  on  an 
029  keypunch  which  will  subsequently  be  read  by  the  MULTICS 
I/O  DEAMON. 

The  remainder  of  this  section  describes  control  card/ term- 
inate card  formats  and  the  MULTICS  commands  required  to 
convert  the  PL1  source  code  to  a usuable  form.  Of  course, 
this  section  applies  to  FORTRAN  source  code  as  well. 

o all  PL1  syntax  rules  apply 
o a single  command  (instruction)  may  not 
exceed  168  characters. 

When  the  DEAMON  reads  an  input  deck  it  does  not  distinguish 
between  cards,  but  rather  reads  an  input  stream  starting 
with  the  first  column  of  the  first  card  and  ending  with 
the  last  column  (80)  of  the  last  card.  For  this  reason,  any 
card  may  contain  multiple  commands  if  the  programmer  chooses, 
or  a command  may  require  more  than  one  card.  When  using  the 
029  keypunch  the  user  should  reference  Figure  4-1  for  the 
appropriate  MULTICS  character. 
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Discrepancies : 


Run  Deck  Structure 

The  run  deck  will  be  in  the  following  format: 

SYSTEM  CONTROL  CARDS 
PROGRAMMER  SOURCE  DECK 
SYSTEM  CONTROL  CARDS 

Run  Procedure 

Assemble  the  input  deck  and  give  it  to  the  MULTICS 
operator  requesting  the  DEAMON  be  used  to  read  the  deck.  The 
operator  should  inform  you  that  the  read  was  successful. 


4.^.1  EXCESS  MEASUREMENT  MODE 


An  excess  measurement  mode  has  been  implemented  for 
entering  data  sets  with  greater  than  the  system  limit  of 
100  dimensions.  A small  subset  of  MOOS  functions  and 
utility  functions  may  be  run  on  data  sets  with  up  to 
250  dimensions  using  this  feature.  The  following  is  a 
list  of  MOOS  programs  which  are  limited  to  250  dimensions 
by  declarative  statement  only.  If  a program  is  an  excess 
measurement  program  but  is  not  listed  below,  there  is  no 
inherent  limit  on  dimensionality.  A more  complete  list 
of  excess  measurement  mode  programs  available  for  MOOS 
users  may  be  found  in  Section  1. 


clusscat 

crdv 

dataprnt 

dscrmeas 

measxfrm 

npcos 


probconf 

ss 

tap input 
transgen 
trnsform 


4.3  MOOS  PROGRAM  DESCRIPTIONS 


The  following  pages  describe  the  programs  currently  imple- 
mented under  MOOS.  Each  program  description  includes  a 
complete  description  of  input  and  output  parameters  and 
file  settings,  a functional  description  of  the  program  and 
a high  level  flow  chart. 

Programs  are  categorized  as  MOOS  Functions  (routines 
called  by  the  user  from  his  console),  internal  subroutines, 
and  programmer  aid  routines. 

MOOS  Functions  are  further  subdivided  into  Major  MOOS 
Functions  and  MOOS  Utility  Functions.  Table  4-1  is  a 
listing  of  Major  MOOS  Functions  in  order  of  Major  MOOS 
Function  number. 

Internal  subroutines  are  transparent  to  the  user  and 
cannot  be  called  from  the  console  directly  but  are  called 
by  MOOS  Functions. 

Programmer  aid  routines  are  callable  from  the  console 
and  are  designed  for  system  debugging  and  maintenance. 

Table  4-2  is  an  alphabetic  listing  and  page  number  index 
of  all  routines.  Routines  with  multiple  entry  points  are 
not  separately  indexed. 


Table  4-1 
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Numerical  Index  of  Major  MOOS  Functions 


Number 

Function 

Number 

Function 

1 

crdinput 

68 

ardg$ld2 

2 

tapinput 

69 

asdg$ld2 

3 

creatree 

70 

eigv$ld2 

4 

mergmeas 

71 

fshp$ld2 

19 

crrandts 

72 

gndv$ld2 

81 

arbv$ldl 

21 

dsubstrc 

82 

crdv$ldl 

26 

comnod 

83 

ardg$ldl 

27 

listlogc 

84 

asdg$ldl 

28 

85 

eigv$ldl 

deletlog 

86 

gndv$ldl 

29 

chngname 

95 

forteval 

30 

chngaprb 

96 

nmvmod 

40 

dvectors 

97 

98 

pairmod 

closedcn 

50 

deletnod 

99 

closemod 

bl 

lingrjct 

128 

eigentrn 

130 

normxfrm 

62 

linglogc 

141 

probconf 

63 

nmv 

142 

dscrmeas 

64 

logicevl 

143 

features 

196 

arbv$sa2 

65 

fisher 

197 

crdv$sa2 

66 

arbv$ld2 

198 

lingpart 

67 

crdv$ld2 

199 

ardg$sa2 

200 

asdg$sa2 

201 

eigv$sa2 

Number 

Function 

202 

nlm 

203 

£shp$sa2 

204 

gndv$sa2 

211 

arbv$sal 

212 

crdv$sal 

213 

ardg$sal 

214 

asdg$sal 

215 

eigv$sal 

216 

gndv$sal 

255 

******** 

Table  4-2 


Alphabetic  Listing  and  Page 

Number  Index  of  all  Routines 

Name 

Description 

Page 

aevs 

computes  eigenvectors  of  a non- 
symmetric  matrix 

4-16 

ans 

retrieves  answer  to  a "yes/no"  question 

4-17 

anything 

list  current  MOOS  functions 

4-18 

append 

add  a data  class  from  other  existing 
data  sets 

4-20 

arbv 

arbitrary  vector  projection 

4-22 

ardg 

arbitrary  discriminant  grouping 
projection 

4-25 

asdg 

assigned  discriminant  grouping 
projection 

4-28 

b inwidth 

one-space  display  modification 

4-33 

boologic 

temporary  boolean  logic  evaluation 
routines 

4-35 

box_logic 

closed  decision  boundary  logic 
evaluation 

4-36 

boxprogram 

generates  closed  decision  boundary 
code  for  FORTRAN  subroutine  logic 

4-37 

cdblogic 

closed  decision  boundary  logic 
information  printout 

4-38 

cdefault 

change  default  values  for  data 
proj  ections 

4-39 

cdisplay 

cluster/scatter  display  switching 

4-41 

checkp 

extract  input  parameters 

4-42 

chngaprb 

a priori  probability  modification 

4-43 

chngname 

tree  name  or  node  name  modification 

4-47 

cl  restruct 

nonlinear  map  data  set  restructuring 

4-49 

cleartree 

data  tree  removal  form  exclusive  user 
storage 

4-51 

closedcn 

create  closed  decision  boundary  logic 

4-52 

closemod 

modify  a closed  decision  boundary  logic 
node 

4-53 

close_ut 

utility  routine  used  by  closemod 

4-54 

4-8 


clprint 

two-space  data  projection  printout 

4-59 

clusscat 

two- space  projection  and  display 

4-61 

clusterl 

nonlinear  map  data  set  clustering 
(reduce  data  set  size) 

4-67 

comnod 

combine  data  classes  from  the  current 
data  set 

4-70 

conmatsm 

confusion  matrix  computation  and 
display 

4-72 

cos 

one-space  logic  creation 

4-78 

cpairwise_ 

logic  pairwise  logic  evaluation  after  a 
closed  decision  boundary  logic 

4-80 

crdinput 

input  MOOS  data  set  from  punched  cards 

4-82 

crdv 

coordinate  vector  projection 

4-88 

creatlog 

two-space  logic  creation 

4-91 

creatree 

create  a data  tree  from  existing 
data  sets 

4-107 

crrandts 

create  a test  data  tree  from  the 
current  data  set 

4-115 

ctsm 

temporary  symbol  modification 

4-119 

dataprnt 

data  characteristics  and  statistics 
printout 

4-120 

dboundry 

delete  a boundary  from  the  display 

4-123 

dcrim 

compute  discriminant  directions 

4-124 

deletlog 

remove  a node  set  from  a logic  tree 

4-126 

deletnod 

remove  a node  from  a data  tree 

4-128 

deletree 

delete  a data  tree  from  current  data 
storage 

4-134 

dg 

set  up  for  discriminant  vector 
computation 

4-135 

displacm 

display  a confusion  matrix 

4-141 

divergenc 

e computation  of  divergence  values 

4-142 

dr  a 

boundary  drawing  subroutine 

4-145 

draw 

display  a logic  tree 

4-156 

dscrmeas 

compute  and  display  discriminant 
measurement  evaluation 

4-162 

dsubstrc 

delete  a subnode  structure  from  a 
data  set 

4-165 

dump 

printout  of  system  information 

4-169 

4-9 


dvectors 

remove  data  vectors  from  a data  tree 

4-172 

eigenvalues 

computation  of  eigenvalues 

4-184 

eigenp 

printout  of  eigenvectors  and  eigenvalues 

4-185 

eigentrn 

create  a data  tree  via  an  eigenvector 
transformation 

4-187 

eigv 

eigenvector  data  projection 

4-189 

elimclas 

add/remove  data  classes  from  display 

4-195 

cllinso 

venerates  Fortran  code  for  bvpercllipsoid 
option  of  closed  decision  loeic 

4-197 

fastdump 

print  selected  system  data  file 
information 

4-198 

features 

"divergence  measure"  measurement 
evaluation  computation 

4-200 

features_abs 

enter  an  absentee  request  to  execute  the 
features  algorithm  off-line 

4-201 

fileinput 

input  MOOS  data  set  from  MULTICS  data 
file 

4-202 

fisher 

compute  fisher  pairwise  logic 

4-205 

f ishpair 

generates  fisher  logic  code  for  a pair 
for  FORTRAN  subroutine  logic 

4-208 

forteval 

evaluate  FORTRAN  subroutine  logic 

4-209 

fortlogc 

create  FORTRAN  subroutine  logic  (user 
program) 

4-210 

fshp 

fisher  discriminant  data  projection 

4-211 

ftnfile 

mean  vector  and  covariance  matrix 
computation 

4-214 

getclass 

find  a data  class  in  the  sysdata  file 

4-215 

getclassl 

find  a data  class  in  the  sysdata  file 

4-219 

getlabel 

generates  internal  labels  for  FORTRAN 
subroutine  logic 

4-220 

getparam 

extract  input  parameters  (for  MOOS 
functions) 

4-221 

gndv 

projection  on  generalized  discriminant 
vectors 

4-225 

gpboolean 

boolean  logic  printout 

4-231 

gpdiscrim 

group  discriminant  information 
printout  (two-space) 

4-233 

gplogic 

logic  group  information  printout 

4-234 

gponespace 

group  discriminant  information  printout 
(one-space) 

4-236 

4-10 


a 


grouprogram 

generates  group  logic  for  FORTRAN 
subroutine  logic 

4-237 

hello_moos 

MOOS  system  introduction 

4-239 

hgprint 

one -space  data  projection  printout 

4-241 

histgram 

one-space  display  for  measurement 
evaluation 

4-244 

hrdcpy 

print  measurement  evaluation  listings 

4-246 

hrdcpycm 

print  a confusion  matrix 

4-256 

index 

identify  selected  data  points  on  data 
projections 

4-257 

ind- reject 

generates  independent  reject  strategy  for 
Fortran  subroutine  loeic 

4-262 

intensfy 

draw  a bargraph  for  selected  classes 
in  one-space  display 

4-263 

invertmat 

matrix  inversion  routine  (nearest  mean 
vector) 

4-265 

latclogc 

create  a "lattice  type"  logic  tree 
structure 

4-267 

linglogc 

create  boolean  (linguistic)  logic 

4-268 

lingpart 

partition  a data  set  with  boolean 
(linguistic)  statements 

4-270 

lingrjct 

create  boolean  (linguistic)  independent 
reject  strategy 

4-274 

list_cst 

list  data  trees  in  common  user  storage 

4-276 

list_ust 

list  data  trees  in  exclusive  user 
storage 

4-277 

listlogc 

print  logic  tree 

4-278 

Inodes 

returns  a list  of  the  lowest  nodes  in 
a data  set 

4-282 

log 

restore  from  or  save  or  list  logic  in 
exclusive  user  storage 

4-283 

log_p 

copy  logic  file  into  current  storage 
area  or  exclusive  user  storage  area 

4-287 

logen 

generate  program  for  linguistic 
partitions 

4-294 

logicevl 

overall  logic  evaluation 

4-297 

logicp 

logic  evaluation  error  printout 

4-300 

logicprogram  create  FORTRAN  subroutine  logic 
(system  program) 

4-302 

login 

find  the  user  default  directory 

4-303 

lowprogram 

generates  lowest  node  code  for  FORTRAN 
subroutine  logic 

4-304 

4-11 


macroview 

one- space  macro  display 

4-305 

measxfrtn 

create  a data  tree  via  boolean 
(linguistic)  transformation 

4-307 

mergmeas 

create  a data  tree  by  combining  the 
measurements  of  two  existing  data  trees 

4-311 

microview 

one- space  micro  display 

4-313 

mmeanacv 

mean  vector  and  covariance  matrix 
merges 

4-316 

mncvotr 

mean  vector  and  covariance  matrix 
computation 

4-319 

modi 

pair  logic  modification : change  number 
of  fisher  thresholds 

4-321 

mod2 

pair  logic  modification:  move  fisher 
thresholds 

4-324 

mod3 

pair  logic  modification: eliminate  measure-4-327 
ments  from  fisher  discriminant 

mod5 

pair  logic  modification: compute  fisher 
discriminant 

4-329 

mod6 

pair  logic  modification : compute  arbitrary  4-331 
one-space 

mod7 

pair  logic  modification : compute  dis- 
criminant plane 

4-333 

mod8 

pair  logic  modification:  compute  arbi- 
trary two- space 

4-335 

mod9 

boolean  logic  modification : insert 
linguistic  strings 

4-340 

modlO 

make  pairwise  logic  a "group"  logic 

4-342 

moosinitiate 

initiates  system  files 

4-343 

moosmode 

convert  from  the  excess  measurement 
mode  to  normal  MOOS  operation 

4-344 

msxform 

temporary  subroutines  designed  to 
transform  data  vectors 

4-346 

multeks 

display  control  program 

4-347 

multmat 

matrix  multiplication  routine  (nearest 
mean  vector) 

4-356 

\ 

! 


J 


nlm 

nonlinear  mapping 

4-357 

nmv  logic 

evaluation  for  nearest  mean  vector  logic 

4-361 

nmv 

compute  nearest  mean  vector  logic 

4-363 

nmvlogic 

nearest  mean  vector  logic  printout 

4-372 

nmvmod 

modify  nearest  mean  vector  logic  nodes 

4-374 

nmvprogram 

generates  nearest  mean  vector  code  for 
FORTRAN  subroutine  logic 

4-377 

normxfrm 

create  a tree  via  a normalization 
transformation 

4-378 

npcos 

one-space  projection  and  display 

4-379 

onespace 

generates  one-space  group  code  for 
FORTRAN  subroutine  logic 

4-383 

optdisc 

generates  optimal  discriminant  plane 
code  for  FORTRAN  subroutine  logic 

4-384 

option 

display  option  list 

4-385 

output_f ile 

file  printing  subroutine 

4-394 

page 

page  measurement  evaluation  ranking 
display 

4-396 

pairmod 

pairwise  logic  evaluation 

4-397 

pairprogram 

generates  pairwise  logic  for  FORTRAN 
subroutine  logic 

4-401 

pairwise_logic 

pairwise  logic  evaluation 

4-402 

partial2 

pairwise  logic  modification  evaluation 

4-405 

pc 

utility  routines  for  "pconversion" 

4-407 

pconversion 

converts  free-formatted  FORTRAN  to  card 
image  FORTRAN 

4-412 

pcos 

one-space  display  for  measurement 
evaluation  (histgram) 

4-413 

pevbx 

partial  logic  evaluation:  closed 

decision  boundary  logic 

4-415 

pevgl 

partial  logic  evaluation:  group  and 

linguistic  logic 

4-416 

pevnm 

partial  logic  evaluation:  nearest  mean 

vector  logic 

4-418 

pevpw 

partial  logic  evaluation:  pairwise  logic 

4-420 

plane_logic 

logic  evaluation:  one- and  two-space 

4-422 

plinguistic 

generates  pairwise  boolean  code  for 
FORTRAN  subroutine  logic 

4-423 

pm  list 

lists  current  logic  modification  options 

4-424 

4-13 
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ponespace 


prepare_info 

preprocess 

probconf 


ptwospace 


pwfisher 

pwlogic 

rdisplay 


reasname 


rectangle 


redraw 


remtree 


restore 


restorec 


restruct 


scale 


generates  pairwise  one-space  4-428 

code  for  FORTRAN  subroutine 

logic 

add  to  the  printout  file  4-429 

generates  declarations  for  FORTRAN 
subroutine  logic  4-430 

compute  and  display  the  proba-  4-431 
bility  of  confusion  measurement 
evaluation 

generates  pairwise  two-space  code 4-434 
for  FORTRAN  subroutine  logic 

print  fisher  discriminant  logic  4-436 


print  pairwise  logic 
regenerate  data  display 


4-437 


4-443 


modify  reassociated  class  names  jn4-444 
logic  file 

generates  Fortran  code  for  hvper-  4-446 

rectangle  option  of  closed  decision 

logic 

display  a previously  drawn  4-447 

boundary 

remove  a data  tree  from  4-449 

common  user  storage 

retrieve  a data  tree  from  ex-  4-450 
elusive  user  storage 

retrieve  a data  tree  from  4-451 

common  user  storaec 

restructure  a data  set  from  data  4-452 
projection 

rank  measurements  for  selected  4-455 

class 

one-space  restructuring  of  a 4-476 

data  set 

store  and  retrieve  data  from  4-478 

common  and  exclusive  user 
storage  area 

store  a data  tree  in  exclusive  4-491 
user  storage 

store  a data  tree  in  common  user  4-492 
storage 

rescale  a data  projection  display4-493 


select  measurements  for 
measurement  reduction 
(individual  and  threshold) 


4-496 


4-14 


select  the  presentation  format  4-502 
for  the  one -space  display 

set  a system  sense  switch  4-504 

sequence  through  eigenvectors,  4-508 
coordinate  vectors,  or  non- 
linear map  3-space 

set  selected  system  data  file  4-510 
information 


sin 

select  logic  node 

4-513 

sphere 

generates  Fortran  Code  for  hvper- 
sphere  option  of  closed  decision 
logic 

4-526 

ss 

display  initialization  and 
modification  subroutines 

4-527 

summrycm 

display  confusion  matrix 
summary 

4-534 

tapeoput 

output  MOOS  data  tree  to 
magnetic  tape 

4-537 

tap input 

input  MOOS  data  set  from 
magnetic  tape 

4-539 

tfs 

locate  a data  class  in  the 
data  tree 

4-541 

transgen 

generate  PL/1  program  for 
measurement  transformation 

4-543 

treedraw 

display  a data  tree 

4-546 

treelist 

list  active  data  trees 

4-551 

t ms  form 

create  a tree  via  measurement 
reduction 

4-552 

twospace 

generates  group  two-space  code 
for  FOPvTRAN  subroutine  logic 

4-562 

un 

select  measurements  for  measure- 
ment reduction  (union  best  class 
and  class  pair) 

4-563 

ut 

system  utility  routines 

4-567 

vec 

save  or  list  data  projection 
vectors 

4-578 

wp 

append  a phrase  to  a character 
stream 

4-594 

i 
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Internal  Subroutine  Name: 


aevs 


l 


Calling  Sequence: 
Input  Parameters: 
nv 
nf 

c 

a 


Output  Parameters: 
nf 


v 


e 

Program  Description: 


call  aevs  (nv,  nf,  c,  e) 


fixed  (35)  order  of  input  matrix  a. 

fixed  (35)  maximum  no.  of  eigen- 
vectors to  be  extracted. 

float  minimum  eigenvalue  to  be 
extracted. 

(100,100)  float  external  static 
square  input  matrix,  destroyed  in 
process . 


fixed  (35)  no.  of  eigenvalues 
extracted  which  exceed  minimum 
value  c. 

(100,100)  float  external  static 
output  array  of  eigenvectors 
(columns) 

(100)  float  array  of  eigenvalues. 


aevs  is  a direct  translation  to  PL/1  of  a FORTRAN 
subroutine  designed  to  extract  the  eigenvectors  of  a non- 
symmetric  square  matrix.  The  technique  is  iterative,  and  the 
no.  of  iterations  has  been  arbitrarily  set  at  50.  The  no.  of 
iterations  could  be  changed  to  improve  accuracy  or  to  obtain 
greater  computational  speed. 


4-16 


ans 


Internal  Subroutine  Name: 
Calling  Sequence: 

Output  Parameters: 
b 


Program  Description: 


call  ans  (b) 

bit(l)  b = "1"  b if  the  answer  is 
yes; 

b - '0"  b if  the  answer  is 
no . 


ans  reads  the  answer  to  a "yes/no"  question,  checks  the 
answer  to  determine  if  it  is  correctly  spelled,  and  returns 
The  Boolean  variable  b is  set  only  if  the  answer  is  yes. 


I 
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Utility  Function  Name: 
Calling  Sequence: 

Input  File  Setting: 


anything 

Type  in  "anything" 
None 


Output  File  Setting:  None 

Program  Description:  This  program  prints  to  the  user 

currently  implemented  MOOS 
functions , and  user  callable 
routines . 

Flow  Chart : 


I 


i 


anything 


Start 


# .1 

from  option 
file  get  & 

Sprint  Data  In- 
put 6c  System 
Utility  Routines 


L 


j Print  user 
callable  rou- 
! tines  which 
j are  not  MOOS 
functions 


x 


Get  6c  print  list  of? 
Logic  Design  Rou-  i 
tines,  Transforma- 
tions 6c  Measure- 
ment Eval„  Routines, 
and  Structure  Ana 1^ - 
sis  Routines 


Return 
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Internal  Subroutine  Name; 
Calling  Sequence: 

Input  Parameters : 

2 

ptr 

Input  File  Settings: 
Program  Description: 


Flow  Chart : 


anything$getopt 

call  anything$getopt  (j,  ptr) 


The  number  of  the  option  to  be 
printed  [fixed  bin  (35)] 

pointer  to  the  beginning  of  the 
option  file  [ptr] 

The  option  file  must  exist. 

"anything$getopt"  is  the  routine 
called  from  ''anything"  which 
retrieves  the  j™  option  from 
the  option  file.  It  also  formats 
the  option  for  printing. 


anything$getopt 


f \ 

Start  ) 

r~~L 

Get  a ptr  to 
the  jth  op- 
tion in  the 
option  file 

y 

Print  the  op- 
tion if  it 
is  not  blank 


( 


1,9 


-■ 
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Utility  Function  Name: 


Calling  Sequence: 


Input  Parameters: 


Type  in  "append  (treel,  nodel,  tree2,  node2, 
T newnode  1 ) " 

1 J 


treel 

nodel 

tree2 

node2 


newnode 


Output  File  Settings: 


Program  Description: 


tree  from  which  data  is  coming  from, 
lowest  node  from  which  data  is  coming  from, 
tree  to  which  data  is  being  added, 
lowest  node  to  which  data  is  being  added  to 
or  intermediate  node  to  which  data  is  being 
added  under. 

name  of  new  node  being  created  (optional). 

If  a new  node  is  created,  then  a new  data  class 
file  corresponding  to  that  node  is  created  and 
the  tree2  treename  file  is  altered.  If  a new 
node  is  not  created,  then  the  node2  data  class 
file  is  adjusted  to  reflect  the  addition  of 
nodel  data,  sysdata  file  is  adjusted  to  show 
the  changes  made  in  the  tree  structure. 

append  has  two  possible  options.  One,  the 
"node"  option,  copies  a lowest  node  (nodel) 
under  a tree  (treel)  as  a new  lowest  node 
(newnode)  under  a superior  node  (node2)  of 
tree2.  The  "data"  option  combines  a lowest 
node  (nodel)  under  treel  with  another  lowest 
node  (node2)  under  tree2. 

If  the  "node"  option  is  selected,  then  the 
tree2  (which  can  also  be  the  same  as  treel) 
structure  is  modified  and  contains  a new 
lowest  node.  If  the  "data"  option  is  selected, 
the  tree2  structure  is  not  modified,  but  a 
lowest  node  in  this  tree  contains  its  original 
vectors  plus  the  vectors  of  another  lowest 
node  of  a different  (or  same)  tree,  append 
does  not  modify  the  first  tree,  treel,  struc- 
ture. 


Flow  Chart: 


See  following  page. 
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newnode  addi- 
£lon2under  , 


adjust  means 
and  covariances-- 
of  tree2  tree- 
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Return 


MOOS  Function  Name: 


arbv$sa2 


; I 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 
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Type  in  "arbv$sa2  L (treename)]  '(nodename)'  " 

Standard  optional  data  set  selection  parameters 

arbv$sa2  calls  arbv$arbvc  to  project  the 
selected  data  set  on  any  two  user  input  or 
saved  vectors. 


arbv$sal 
2 11 

Type  in  "arbv$sal  [(treename)]  [(nodename)]  " 

Standard  optional  data  set  selection  parameters 

arbv$sal  calls  arbv$arbvcl  to  project  the 
selected  data  set  on  any  one  user  input  or 
saved  vector. 


arbv$ld2 

66 

Type  in  "arbv$ld2  [ (treename)’  [(nodename)  ] " 

Standard  optional  data  set  selection  parameters 

arbv$ld2  calls  arbv$arbvc  to  project  the 
selected  data  set  on  any  two  user  input  or 
saved  vectors.  Logic  maybe  created  from 
the  resulting  display. 


MOOS  Function  Name: 


arbv$ldl 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 


81 


Type  in  "arbv$ldl  j(treename)]  ^(nodename)J  " 
Standard  optional  data  set  selection  paramete 


Program  Description:  arbv$ldl  calls  arbv$arbvcl  to  project  the 

selected  data  set  on  any  one  user  input  or 
saved  vector.  Logic  may  be  created  from 
the  resulting  display. 


Internal  Subroutine  Name;  arbv$arbvc 

arbv$arbvc 1 

Calling  Sequence:  call  arbv$arbvc  (ptrf,  x) 

call  arbv$arbvcl  (ptrf,  x) 

Input  Parameters: 


ptrf 


Output  File  Settings: 


Program  Descriptions: 


Flow  Chart: 


(5)  ptr  ptrf(l)  - sysdata 

ptrf(2)  - scratch 
ptrf(3)  - display 
ptrf(4)  - treename 
ptrf(5)  - mooslogic 

(15)  x should  be  set  to  1 for  logic  de- 
sign, 0 for  structure  analysis. 

Entry  arbvc  sets  up  display  for  a two-space 
plot  by  calling  ss$display.  Entry  arbvcl  sets 
up  csdata  for  a one-space  plot  by  calling 
ss$display  1 . 

arbvc  and  arbvcl  allows  the  user  to  specify 
saved  projection  vector(s)  or  user  input  pro- 
jection vector(s).  All  projection  vectors  are 
normalized  and  orthogonalized.  arbvc  exits 
by  calling  ss$display  then  clusscat.  arbvcl 
exits  by  calling  ss$displayl  then  npcos. 

See  following  page. 
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MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 

MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


ardg$sa2 

199 

Type  in  "ardg$sa2  [(treename)]  [(nodename)  1 " 

Standard  optional  data  set  selection  parameters 

ardg$sa2  calls  ardg$arbdg  to  project  the  data 
set  on  the  plane  formed  by  the  fisher  direction 
and  the  orthogonal  discriminant  direction. 

These  projection  vectors  are  calculated  from 
two  user  selected  groupings  of  data  nodes. 


ardg$sal 

213 

Type  in  "ardg$sal  [(treename)l  [(nodename)'  " 


Standard  optional  data  set  selection  parameters 


ardg$sal  calls  ardg$arbdgl  which  projects 
the  selected  data  set  on  the  fisher  direction 
determined  by  two  user  selected  groupings 
of  data  nodes. 


ardg$ld2 

68 
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Type  in  "ardg$ld2  [(treename)  (nodename)'  " 

Standard  optional  data  set  selection  parameters 

ardg$ld2  calls  ardg$arbdg  to  project  the 
selected  data  set  on  the  plane  formed  by  the 
fisher  direction  and  the  orthogonal  discrimi- 
nant direction.  These  projection  vectors  are 
calculated  using  two  user  selected  groupings 
of  data  nodes.  Logic  may  be  created  from  the 
resulting  display. 


-25 


MOOS  Function  Name: 


ardg$ldl 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters: 


Output  File  Settings: 
Program  Description: 
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Type  in  "ardg$ldl  (treename)]  (nodename)]  " 

Standard  optional  data  set  selection  parameters 

ardg$ldl  calls  ardg$arbdgl  which  projects 
the  selected  data  set  on  the  fisher  direction 
determined  by  two  user  selected  groupings  of 
data  nodes.  Logic  may  be  created  from  the 
resulting  display. 


ardg$arbdg 

ardg$arbdgl 


call 

ardg$arbdg  (ptrf,  x) 

call 

ardg$arbdgl  (ptrf,  x) 

£trf 

(5)  ptr  ptrf (1 ) 

sysdata 

ptrf(2) 

scratch 

ptrf(3)  - 

display 

ptrf(4)  - 

treename 

ptrf(5)  - 

moos  logic 

fixed  (35)  x should  be  set  to  1 for 
logic  design,  0 for  structure  analysis- 


Entry  arbdg  sets  up  display  for  a two-space 
plot  by  calling  ss$display.  Entry  arbdgl  sets 
up  csdata  for  a one-space  plot  by  calling 
ss$display  1 . 


arbdg  and  arbdgl  present  a list  of  lowest 
nodes  in  the  selected  data  set  and  allows  the 
user  to  form  two  groups  from  this  list  - not 
necessarily  using  all  the  available  classes. 
The  routines  then  call  dg$dd  so  the  user  will 
be  given  the  choice  of  having  the  fisher  direc- 
tion based  on  a scatter  matrix  or  covariance 
matrix  and  also  the  ability  to  choose  which 
measurements  will  be  included  in  the  fisher 
direction.  dg$dcrmsu  and  finally  dcrim 
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are  called  to  calculate  the  fisher  direction. 
The  routines  exit  by  calling  the  appropriate 
display  routine. 


Flow  Chart: 
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MOOS  Function  Name: 


asdg$sa2 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


MOOS  Function  Name; 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description; 


MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 
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Type  in  "asdg$sa2  ;(treename)]  '(nodename)  1 " 

Standard  optional  data  set  selection  parameters 

asdg$sa2  calls  asdg$assdg  which  projects  the 
selected  data  set  onto  the  plane  formed  by  the 
fisher  direction  and  the  orthogonal  discrimi- 
nant direction.  The  fisher  direction  is  cal- 
culated from  two  groupings  of  lowest  nodes 
assigned  by  dg$acl. 


asdg$sal 

214 

Type  in  "asdg$sal  [(treename)’  (nodename)'  " 

Standard  optional  data  set  selection  parameters 

asdg$sal  calls  asdg$assdgl  which  projects 
the  data  on  the  fisher  direction  determined  by 
two  groupings  of  lowest  nodes,  assigned  by 
dg$acl. 

asdg$ld2 

69 

Type  in  "asdg$ld2  (treename)'  (nodename)  " 

Standard  optional  data  set  selection  parameters 

asdg$ld2  calls  asdg$assdg  which  projects  the 
selected  data  set  onto  the  plane  formed  by  the 
fisher  direction  and  the  orthogonal  discrimi- 
nant direction.  The  fisher  direction  is  cal- 
culated from  two  groupings  of  lowest  nodes 
assigned  by  dg$acl.  Logic  may  be  created 
from  the  resulting  display. 
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MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


asdg$ldl 


84 


Type  in  "asdg$ldl  fttreename)  (nodename)  11 

*-  J *-  j 

Standard  optional  data  set  selection  parameters 

asdg$ldl  calls  asdg$assdgl  which  projects  the 
data  on  the  fisher  direction  determined  by  two 
groupings  of  lowest  nodes,  assigned  by  dg$acl. 
Logic  may  be  created  from  the  resulting  dis- 
play. 


Internal  Subroutine  Name:  asdg$assdg 

asdg$assdgi 

jelling  Sequence:  call  asdg$assdg  (ptrf,  x) 

call  asdg$assdgl  (ptrf,  x) 

Input  Parameters: 


Output  File  Settings: 


Program  Description: 


(5)  ptr 


ptrf(l) 

ptrf(2) 

ptrf(3) 

ptrf(4) 

ptrf(5) 


sysdata 

scratch 

display 

treename 

mooslogic 


fixed  (35)  x should  be  set  to  1 for  logic 
design,  0 for  structure  analysis. 


Entry  assdg  sets  up  display  for  a two-space 
plot  by  calling  ss$display.  Entry  assdgl 
sets  up  csdata  for  a one-space  plot  by  calling 
ss$displayl . 


assdg  and  assdgl  call  dg$acl  to  assign  two 
groups  of  lowest  nodes.  The  user  is  then 
allowed  to  modify  these  groupings  through  a 
call  to  asdg$chgp.  The  routine  then  calls 
dg$dd  so  the  user  will  be  given  the  choice  of 
having  the  fisher  direction  based  on  a scatter 
matrix  or  covariance  matrix  and  also  the 
ability  to  choose  which  measurements  will  be 
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Flow  Chart: 
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included  in  the  fisher  direction.  dg$dcrmsu 
and  finally  dcrim  are  called  to  calculate  the 
fisher  direction.  The  routines  exit  by  calling 
the  appropriate  display  routine. 


asdg$a8sdg, 

asdg$assdgl 
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MOOS  Function  Name: 


asdg$ldl 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


Internal  Subroutine  Name: 

Calling  Sequence: 

Input  Parameters: 
ptrf 

x 

Output  File  Settings: 
Program  Description: 


84 

Type  in  "asdg$ldl  (treename)  (nodename)’" 

L ju  j 

Standard  optional  data  set  selection  parameters 

a8dg$ldl  calls  asdg$assdgl  which  projects  the 
data  on  the  fisher  direction  determined  by  two 
groupings  of  lowest  nodes,  assigned  by  dg$acl. 
Logic  may  be  created  from  the  resulting  dis- 
play. 


asdg$as  sdg 
asdg$assdgl 

call  asdg$assdg  (ptrf,  x) 
call  asdg$assdgl  (ptrf,  x) 


(5)  ptr 


ptrf(l) 

ptrf(2) 

ptrf(3) 

ptrf(4) 

ptrf(5) 


sysdata 

scratch 

display 

treename 

mooslogic 


fixed  (3  5)  x should  be  set  to  1 for  logic 
design,  0 for  structure  analysis. 

Entry  assdg  sets  up  display  for  a two-space 
plot  by  calling  ss$display.  Entry  assdgl 
sets  up  csdata  for  a one-space  plot  by  calling 
S8$display  1 . 


assdg  and  assdgl  call  dg$acl  to  assign  two 
groups  of  lowest  nodes.  The  user  is  then 
allowed  to  modify  these  groupings  through  a 
call  to  asdg$chgp.  The  routine  then  calls 
dg$dd  so  the  user  will  be  given  the  choice  of 
having  the  fisher  direction  based  on  a scatter 
matrix  or  covariance  matrix  and  also  the 
ability  to  choose  which  measurements  will  be 
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Internal  Subroutine  Name: 

Calling  Sequence: 

Input  Parameters: 

lnd 

J. 

m 

Output  Parameters: 

lnd 

1_ 

m 

Program  Description: 


asdg$chgp 

call  asdg$chgp  (lnd,  1,  m) 


(72)  char  (4)  array  of  node  names. 

fixed  (35)  length  of  first  group  in  lnd  array. 

fixed  (35)  total  length  of  lnd  array. 


(72)  char  (4)  corrected  array  of  node  names, 
fixed  (35)  new  length  of  first  group  in  lnd 
array. 

fixed  (35)  new  total  length  of  lnd  array. 

asdg$chgp  allows  the  user  to  modify  two 
groupings  of  node  names.  Any  node  in  either 
group  may  be  deleted  from  that  group  and 
any  node  in  one  group  may  be  added  to  the 
other.  "1"  and  "m"  are  adjusted  accordingly. 


hsnuhM  I 


Utility  Function  Name: 
Calling  Sequence: 

Output  File  Settings: 


Program  Description: 


b inwidth 

Type  in  "binwidth" 

The  following  words  of  the  "csdata" 
file,  one-space  display  file,  are 
adjusted:  C7,  projection  flag,  is 
set  to  2;  C8,  data  binning  flag,  set 
to  0;  CIO,  current-xmin , dl02,  current- 
xmax;  and  Cl 2,  number  of  bins. 

Binwidth  is  a one-space  micro  display 
modification  program.  It  allows  the 
user  to  adjust  the  xmin,  the  number 
of  bins,  and  the  internal  size.  When 
the  desired  changes  to  the  current 
display  have  been  determined,  the 
appropriate  values  are  altered  in  the 
"csdata"  file  and  npcos  is  called  to 
put  up  the  new  display. 


Flow  Chart : 


See  following  page. 
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call  npcos 


Return 


ft 


Internal  Subroutine  Name: 
Calling  Sequence: 


call  boologic  (ptr,  ndim,  boolval, 
num) 


Input  Parameters: 


ndim 


a pointer  to  the  vector  to  be 
evaluated 

dimensionability  of  the  vector 
logic  node  number  of  the  statement 
to  be  evaluated 


Output  Parameters: 


boolval 


Program  Description: 


a 1 bit  variable  and  it  tells 
whether  evaluation  of  the  vector 
was  true  or  false 

"boologic"  is  a routine  generated 
by  other  routines  (logen,  etc.)  Its 
purpose  is  to  evaluate  a vector 
against  a given  set  of  constraints , 
(these  constraints  are  not  known 
until  the  routine  that  generated 
"boologic"  is  run).  Therefore  no 
flow  chart  can  be  written  for 
"boologic . " 


Internal  Subroutine  Name:  box_logic 


Calling  Sequence: 


Input  Parameters: 


lptr 


nptr 


eptr 


dptr 


ndim 


trcl 


Output  Parameters: 


call  box  logic  (lptr,  nptr,  eptr, 
dptr,  ndim,  nnum,  trcl,  cn) 


ptr  pointer  to  logic  file 

ptr  pointer  to  closed  decision 
boundary  logic  block 

ptr  pointer  to  error  entry  in 
box_error_file 

ptr  pointer  to  OLPARS  vector  to  be 
evaluated 

fixed  (35)  no.  of  dimensions 

(128)  fixed  (35)  array  of  indices, 
where  the  argument  of  nnum  = a 
logic  node  number,  and  the  value 
of  nnum  = an  index  to  the  class  name 
associated  with  the  logic  node 
number.  (An  index  of  1 would  refer 
to  the  first  SCI  entry  in  the  logic 
file) . 

fixed  (35)  logic  node  number  of  the 
correct  class. 


fixed  (35)  assigned  logic  node 
number . 


Program  Description: 

box_logic  determines  into  which  closed  decision  boundary- 
(ies)  a single  OLPARS  vector  falls.  The  routine  tests  the 
vector  against  the  boundary  surrounding  each  class,  and  if 
the  vector  lies  inside,  a counter  is  bumped  and  the  specific 
boundary  noted.  Returned  information  consists  of  the  parameter 
cn,  and  error  information  (if  the  vector  is  not  correctly 
classified)  in  the  box_error_file . 

For  a more  detailed  description  of  the  operation  of 
box_logic,  see  the  program  listing  documentation. 


4-36 


Internal  Subroutine  Name: 
Calling  Sequence: 


boxprogram 

call  boxprogram  (ii,  logicptr) 


► 


Input  Parameters: 
ii 


logicptr 

Program  Description: 


logic  node  number  with  closed 
decision  logic  (fixed  (35)) 

pointer  to  MOOS  logic  file  (ptr) 


boxprogram  is  the  subroutine  in 
the  "fortlogc"  option  of  MOOS 
which  converts  closed  decision 
logic  into  its  FORTRAN  equivalent 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation  of 
this  subroutine. 


Internal  Subroutine  Name:  cdblogic 


Calling  Sequence: 


Input 

Parameters : 

lptr 

ndim 

block 

class 

d 

Program  Description 

call  cdblogic  (lptr,  ndim,  block, 
class,  d) 


ptr  pointer  to  a logic  file 
fixed  (35)  no.  of  dimensions 


fixed  (35)  index  to  a closed  decision 
boundary  logic  block 


(72)  char  (4)  array  of  class  names 
associated  with  the  closed  decision 
boundary  logic  node . 


char  (12)  name  of  the  output  file 
(listlog_file) 


cdblogic  is  utilized  by  listlogc  to  print  out  the  numerical 
values  which  specify  closed  decision  boundary  logic. 


For  a more  detailed  description  of  the  operation  of 
cdblogic,  see  the  program  listing  documentation. 
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Utility  Function  Name: 
Calling  Sequence: 

Input  File  Settings: 
Program  Description: 

Flow  Chart: 


cdefault 

Type  in  "cdefault" 
sysdata  must  exist 

cdefault  puts  up  a list  of  options  and  asks  the 
user  to  select  one.  By  selecting  the  appro- 
priate option,  the  user  may  change  either  the 
cluster  scatter  cut-off  value  or  the  one-space 
bin  factor  (words  62  and  63  of  sysdata, 
respectively). 

See  following  page. 


cdefault 


Utility  Function  Name: 


Calling  Sequence: 


Output  File  Settings: 


Program  Description: 


type  in  "cdisplay" 

The  "display"  file  is  adjusted  to 
reflect  the  changed  two-space 
display. 

This  program  changes  the  current 
display  from  a cluster  plot  to  a 
scatter  plot.  cdisplay  checks 
word  D6 , the  cluster/scatter  flag, 
and  reverses  the  value.  The  program 
exits  by  calling  clusscat. 


Flow  Chart 


cdisplay 


Start 


Set  D4,  data  set  ] 
project  flag,  & 
D7,  relative 
position  flag,  to 


D6  , no 

lusters  / scatter 

^-ftag,  = 0 


Set  D6  = 0 


Set  D6  = 1 

. J 



Call  ^ 
clusscat 


Internal  Subroutine  Name: 


checkp 

call  checkp  (trnam,  cnam,  m,  sptr). 


Calling  Sequence: 

Input  Parameters: 
sptr 

Output  Parameters: 
trnam 
cnam 
m 

Program  Description: 


ptr  pointer  to  parameter  list  (as  returned  by 
cu_$arg_list_ptr). 


char  (8)  treename  of  current/or  selected 
data  set. 

char  (4)  nodename  of  current/or  selected 
data  set. 

fixed  (35)  set  to  -1  if  checkp  finds  any 
errors. 

The  purpose  of  checkp  is  to  return  the 
selected  data  set  from  a parameter  list.  If 
no  parameters  are  given,  checkp  will  return 
the  current  data  set  from  sysdata,  if  one 
exists. 

The  major  differences  between  checkp  and 
ut$ckparam  are  that  checkp  does  not  require 
that  a given  treename  exist  in  sysdata  or 
that  the  calling  program  be  a MOOS  function. 
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MOOS  Function  Name:  chngaprb 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Pa rameter s: 


30 


Type  in  "chngaprb  [(treename)’  ^nodename)1 

The  standard  optional  data  set  selection 
parameters 


Output  Parameters:  "treename  nodename  logic"  file:  The 

apriori  probabilities  in  the  logic  file  will  be 
updated  according  to  user  input  information. 

Program  Description:  chngaprb  calls  chngaprb$display  to  list  the 

apriori  probabilities  and  to  allow  the  user  to 
input  his  option,  and  alter  them  according  to 
user  input  option: 


0 - no  change 

1 - set  all  apriori  probabilities 

P(i)  = 1 j (ncls) 

2 - enter  proportion  for  each  class 


ncls 

p(i)  = 1 7 L fwt(j)1  x wt(i) 

j = 1 L J 

where  P(i)  is  the  apriori  probability  for  class 
(i),  ncls  is  the  number  of  classes,  wt(i)  is  the 
proportion  entered  for  class(i),  and 
ncls 

Y wt(j)  is  the  sum  of  all  user  input  pro- 

j=i 

portion  values. 


chngaprb$display  is  called  after  each  change 
to  list  the  apriori  probabilities  and  to  allow 
the  user  to  enter  his  option. 

The  routine  exits  normally  when  the  user 
selects  option  0,  and  exits  with  an  error 
message  if  ut$ckparam  indicates  an  error  or 
if  no  logic  file  is  found  for  (treename), 
(nodename). 

Flow  Chart:  gee  following  page. 
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chngaprb 
l.(treename)] 
[(nodename )] 


\ 
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I 

on 
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r ... 

Call 

chngaprb$display 


Option  = 0 ? 


Return 


Set  apriori 
probabilities 
equal 


Option  = 1 ? 


Enter  pro- 
portion for 
each  class 
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16  input  weights  by  having 
user  input  a number  not 
to  be  used  in  any  calcula- 
tions 


Set  apriori 
probabilities 
according  to 
input  proportions 


Call 

chngaprb$ 

display 


Internal  Subroutine  Name: 


chngaprb$di splay 


Calling  Sequence:  c all  chngaprb$display  (ncl,  epoint,  ppoint, 

optn,  treename,  nodename) 

Input  Parameters: 


ncl 

- 

number  of  classes 

epoint 

- 

pointer  to  class  list 

ppoint 

- 

pointer  to  apriori  probability  list 

optn 

- 

display  code  for  first  call  (4)  or  not  first 
call 

treename, 

nodename 

name  of  logic  file 

Output  Parameter 

optn  - user  selected  option 

Program  Description:  "chngaprb$display"  clears  the  screen  if  it 

is  not  the  first  call  (optn  = #4),  formats  and 
outputs  the  list  of  apriori  probabilities,  and 
requests  and  reads  the  user  response. 

Flow  Chart: 


chngaprb$di  splay  \ 

i 

v. 

Format  and 
output  list, 
request 


N 

Input 

response 


Return 


MOOS  Function  Name 


MOOS  Function  Number: 


Calling  Secience:  Type  "chngname  [(treename)  (nodename) 


Input  Parameters: 


Output  File  Settings 


Program  Description: 


Standard  optional  data  set  selection 
parameters 

chngname  renames  the  treename  file  and/or 
data  class  files  of  the  selected  data  set. 
Node  names  in  sysdata  and  treename  files 
are  also  changed. 

chngname  first  displays  the  selected 
treename  and  all  nodes  in  the  selected 
data  set.  The  user  is  asked  to  enter 
the  number  of  names  from  this  list  he 
wishes  to  change  - followed  by  the  changes 
The  new  names  are  checked  to  insure  that 
there  are  no  duplicated  "display" 
characters.  Finally,  the  data  class  files 
and/or  tree  name  file  are  renamed  and 
nodenames  in  the  tree  name  file  and 
sysdata  are  changed. 


Flow  Chart: 


See  following  page. 


chngname 

i 

:~c 

Display  list  of 
possible  names 
to  be  changed  i 


Internal  Subroutine  Name : 


cl  restruct 


Calling  Sequence: 


Input  Parameters: 

cnam 

llow 

nln 

cptr 

tnc 

nd 

fdg 

ssptr 

Program  Description: 


call  cl_restruct  (cnam,  llow,  nln,  cptr, 
tnc,  nd , fdg,  ssptr) 


char  (4)  nodename  of  selected  data  set. 

(3)  char  (4)  array  of  new  dataclass  names, 
fixed  (35)  no.  of  new  dataclasses. 
ptr  pointer  to  file  cr_map  in  process 
directory. 

fixed  (35)  total  number  of  cluster  centers, 
fixed  (35)  no.  of  dimensions, 
fixed  (35)  fdg  =1  if  2 boundaries 
fdg  = 2 if  1 boundary, 
ptr  pointer  to  sysdata. 

cl_restruct  uses  "cr_map"  and  the  mapping 
files  produced  by  internal  subroutine  clusterl 
to  restructure  an  original  data  set  based  on 
boundary(s)  drawn  on  a projection  of  a data 
set  produced  by  clustering  the  original  data 
set.  Data  class  files,  sysdata,  and  the 
original  tree  name  file  are  adjusted  to 
reflect  the  new  structure. 


Flow  Chart: 


See  following  page. 
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Return 


Utility  Function  Name: 


Calling  Sequence: 


Input  Parameters : 


treename 


Output  File  Settings: 
Directory 
Tables 
Segment 

Program  Description: 


type  in  "cleartree  ( treename/ "al 1" ) " 


specify  a particular  data  set 

perform  operation  for  all  data  sets 
in  the  user's  "saved_trees"  directory. 


user's  "saved_trees"  will  be  reduced. 

user's  "seg_o_trees"  will  be  reduced. 

user's  "structure"  will  be  reduced. 

This  routine  calls  s p$tclr  and 
returns  control  to  the  user.  The 
files  "seg_o_trees"  and  "structure" 
will  show  the  reduction  in  data 
sets . 
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MOOS  Function  Name: 


closedcn 


MOOS  Function  Number: 


Calling  Sequence 


Input  Parameters: 


Output  File  Settings 


Type  in  "closedcn  ((treename)) 

( (classname) )" 

Standard  optional  data  set  selection 
parameters . 

A closed  decision  boundary  logic 
block  is  added  to  the  logic  file. 


Program  Description: 

closedcn  creates  closed  decision  boundary  logic  for  the 
selected  data  set  at  a user-specified  logic  node.  closedcn  is 
composed  of  two  major  sections.  Section  I consists  of  inter- 
active user  input  of  the  logic  specification  for  each  class. 
Section  II  creates  the  desired  closed  decision  boundary  logic. 
The  routine  ends  by  calling  pevbx  which  produces  a partial 
evaluation  of  closed  decision  boundary  logic. 

For  a more  detailed  description  of  the  operation  of 
closedcn,  see  the  program  listing  documentation. 


MOOS  Function  Name: 


closemod 


! 

* 

1 


« 

i 


MOOS  Function  Number:  99 

Calling  Sequence:  Type  in  "closemod  ((treename)) 

( (classname) ) " 

Input  Parameters:  Standard  optional  data  set  selection 

parameters . 

Program  Description: 

closemod  modifies  closed  decision  boundary  logic  at  a 
user- specif ied  logic  node  in  a selected  logic  tree.  closemod 
operates  in  the  following  manner:  the  class  whose  logic  is 

to  be  modified  and  the  type  of  modification  are  first  specified 
by  the  user.  closemod  then  performs  the  desired  changes  and 
the  user  is  allowed  to  choose  another  class  to  modify  or  stop. 

When  all  modification  is  complete,  a partial  evaluation  of  the 
new  logic  is  generated  by  pevbx.  An  internal  subroutine 
"closemod$thres"  is  utilized  in  the  calculation  of  thresholds 
for  hyperrectangular  logic. 

For  a more  detailed  description  of  the  operation  of  closemod, 
see  the  program  listing  documentation. 
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Internal  Subroutine  Name: 


close  ut 


Internal  Subroutine  Name: 


close_ut$bndy 

call  close_ut$bndy  (type) 


Calling  Sequence: 

Input  Parameters: 

type  fixed  (35)  1 for  hyperrectangular , 

2 for  hyperellipsoid 

ptrs  (5)  ptr  external  static 

ptrs  (1)  - sysdata 
ptrs  (2)  - scratch 
ptrs  (3)  - display 
ptrs  (4)  - treename 
ptrs  (5)  - mooslogic 


low 

float  external  static  current 
threshold 

low 

high 

float  external  static  current 
threshold 

high 

thptr 

ptr  external  static  pointer  to 
thresholds  in  the  logic  file 

Program  Description: 

close_ut$bndy  allows  the  user  to  change  thresholds  inter- 
actively for  hyperrectangular  and  hyperellipsoid  closed 
decision  boundary  logics.  For  hyperellipsoid  logic,  a threshold 
change  is  the  same  as  changing  the  axis  length  along  one  of 
the  axis  vectors. 

For  a more  detailed  description  of  the  operation  of 
close_ut$bndy , see  the  program  listing  documentation. 


Internal  Subroutine  Name:  close  ut$cc 


Calling  Sequence: 


Input  Parameters: 


call  close  ut$cc(fl) 


(5)  ptr  external  static 


ptrs(l) 
ptrs (2) 
ptrs (3) 
ptrs (A) 
ptrs (5) 


- sysdata 

- scratch 

- display 

- treename 

- mooslogic 


Output  Parameters: 


Program  Description: 


fixed  (35)  set  to  -1  for  error 
condition 


close  ut$cc  performs  the  following  tasks  for  closemod. 

The  logic  Tile  for  the  current  data  set  is  initiated.  If  it 
does  not  exist,  fl  is  set  to  -1  and  the  routine  exits. 

If  the  logic  file  exists,  it  is  searched  for  closed  deci- 
sion boundary  logic  nodes.  If  there  is  only  one,  the  routine 
makes  this  node  the  current  logic  node  and  returns.  If  there 
are  more  than  one,  a list  is  presented  and  the  user  may  choose 
a logic  node  to  be  the  current  logic  node. 

For  a more  detailed  description  of  the  operation  of 
close_ut$cc,  see  the  program  listing  documentation. 
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Utility  Function  Name: 


clprint 

type  in  "clprint" 


Calling  Sequence: 

Program  Description:  This  produces  a hardcopy  of  the 

current  two-space  display  on  a high- 
speed printer.  Initially,  clprint 
verifies  that  the  current  display  is 
a cluster  plot  and  prints  an  error 
message  if  it  is  a scatter  plot. 
Subroutine  "prepare_info"  is  called  to 
create  the  "hcfile"  in  the  user's 
home  directory.  Clprint  copies  the 
total  image  area  from  the  "display" 
files  into  the  "hcfile."  Clprint 
then  uses  the  relative  position  area 
of  the  "display"  to  print  a class 
by  class  summary  of  row  and  column 
position  and  the  number  of  vectors 
present  in  each  grid.  The  total 
image  area  of  "display"  is  scanned 
for  asterisks,  indicative  of  class 
overlaps.  A table  of  class  overlaps 
is  then  printed.  Clprint  exits  by 
calling  "option". 

Flow  Chart : See  following  page. 


Internal  Subroutine  Name: 


clusscat 


I 


Calling  Sequence: 
Input  File  Settings: 


DO 


DO, 


D1 

D2 

D3 

D4 
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D7 
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Output  File  Settings: 


call  clusscat 


The  following  locations  of  "display" 
file,  two-space  format,  must  be  set 
prior  to  calling  clusscat. 


system  display  code,  set  to  0 

temporary  symbol  set  to  appropriate 

class  symbol  or  0 

tree  character 

dimens ionability 

number  of  classes 

data  set  projection  flag 

"original"  data  range  set  depending 

on  value  of  D4 

cluster/scatter  plot  flag 

relative  position  flag 

"current"  data  range,  set  depending 

on  value  of  D4 

sequence  flag 

sequence  number 

cycle  option 

cycle  data,  set  according  to  value 
of  DIO 
classnames 
eliminate  flag 
intensify  flag 
number  of  boundaries 
redraw- boundary  flag 
number  of  points  in  boundary 
number  of  points  in  boundary 
x,y  coordinates  of  boundary  pts  and 
convex  pts  of  boundaries  1 and  2 
x,y  projection  vectors 


1 

2 


The  "csdata"  and  "display"  files 
are  adjusted  to  reflect  the  current 
two-space  display. 
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Program  Description: 


The  program  is  the  two-space  display 
routine.  ciusscat  first  checks  if  the 
system  display  code  is  0 or  1,  0 if  this 
is  the  first  time  ciusscat  is  entered 
and  1 if  the  current  display  is  a two- 
space  plot.  If  the  code  is  correct,  the 
input  file  settings  are  assigned  to 
local  variables,  else  the  error  message 
"system  display  code  is  incorrect"  is 
printed  and  control  is  returned  to 
the  calling  program.  The  D4  flag  is 
evaluated  next.  If  D4  = 0 or  1 , the 
data  is  projected  upon  the  basis  vectors 
and  stored  in  the  "csdata"  file.  If  D4 
equals  0,  then  the  xmin,  xmax,  ymin,  and 
ymax  values  are  determined  then  adjusted 
so  that  the  x range  and  y range  are 
equal.  These  values  are  then  stored  as 
the  "original"  data  range.  The  D6 
flag,  cluster/scatter  plot,  is  checked. 
If  a cluster  plot  is  desired  then 
the  D7  flag,  relative-position,  is 
evaluated  and  if  D7  equals  0 the 
relative  position  of  each  vector,  which 
is  the  location  on  the  60x36  cluster 
grid  where  the  vector  lies,  is: 

relpos  = yloc  ^60  + xloc 

where 

yloc  = i£max^36 
(ymax-ymin) 

n = (x-xmin)*60  + 1 

x oc  ~ ( xmax- xmin) 

x,  y are  the  projected  values  of  the 
vector 

xmin,  xmax,  ymin,  and  ymax  is  the 
"current  data  range 
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The  relative  position  area  for  each 
class  is  constructed  and  contains 
each  vector's  relative  position  and 
the  number  of  vectors  of  each  class 
which  fall  into  this  grid. 

The  total  image  area,  a 60  x 36  word 
section  of  the  "display"  file,  is  then 
constructed  and  is  the  plot  which 
appears  on  the  console.  Each  word 
which  represents  one  grid  of  the 
cluster  plot,  contains  either  a class 
symbol  or  an  asterisk  if  more  than  one 
class  was  projected  into  the  grid.  The 
total  image  area  is  the  output  to  the 
console . 

If  D6  indicates  a scatter  plot,  each 
vector  of  each  class  that  is  to  be 
displayed  is  checked  to  see  if  it  is 
within  the  current  data  range.  If  so, 
its  location  on  the  console  is  deter- 
mined as  follows : 


xloc 


(x-xmin) *714  +120 
xmax- xmin 


yloc 


(y-ymin) * 670  +53 
ymax-ymin 


where  x,  y,  xmin,  ymin,  xmax,  and  ymax 
are  the  same  as  in  the  cluster  plot. 

xloc  and  yloc  represent  tektronix 
points  on  the  screen.  multeks$  print- 
char  is  called  with  these  values  and 
the  appropriate  class  symbol  to  display 
the  vector. 

The  appropriate  range  and  scaling 
information,  class  list , message , and 
type  of  display  is  then  printed. 

If  the  Dll^  or  D132  switches  are  set, 
either  "redraw"  or  "option"  is  called, 
else  clusscat  returns  to  the  calling 
procedure . 


See  following  page 
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Internal  Subroutine  Name: 


clusterl 


Calling  Sequence: 


call  clusterl  (In,  nln,  sptr, 
totvec,  deptr,  name,  node) 


Input  Parameters : 

In 

nln 

sptr 


totvec 

deptr 

name 

node 

Input  File  Settings: 


Output  File  Settings: 


Program  Description: 


(72)  char(4)  array  of 
names  in  the  data  set 
fixed  (35)  no.  of 
(5)  ptr 


lowest  node 


lowest  nodes 
sysdata 
scratch 
display 
treename 
mooslogic 
number  of  vectors 


sptr(l) 
sptr(2) 
sptr( 3 ) 
sptr(4) 
sptr ( 5 ) 

fixed  (35)  total 
in  the  data  set 

(72)ptr  array  of  pointers  pointing 
to  data  class  files  in  the  data  set 
char(8)  treename  of  data  set  to  be 
clustered 

char(4)  nodename  of  data  set  to  be 
clustered 


Word  6 of  sysdata  must  be  set  to  1, 
and  words  7 and  8 to  the  treename 
of  the  data  set  being  clustered. 

These  words  are  used  by  restruct  and 
cl_restruct  in  case  the  tree 
produced  by  clusterl  is  restructured. 

Clusterl  produces  a mapping  file  for 
each  data  class.  These  files  con- 
tain lists  of  vector  I.D.  numbers 
from  the  original  data  classes  for 
each  cluster  center.  If  the 
clustered  data  set  is  restructured, 
cl_restruct  uses  these  files  to  map 
back  to  the  original  data  tree.  The 
mapping,  files  are, named  as  follows: 
clust_  || treename  ||  nodename. 

Clusterl  also  sets  up  f iledata  for 
f ile_input . 

Clusterl  first  asks  the  user  to  enter 
a number  of  cluster  centers.  The 
data  tree  produced  will  contain  this 
number  of  vectors  and  will  approxi- 
mately retain  the  structure  of  the 
original  data  set.  The  user  is  then 
asked  how  the  number  of  representative 


I 
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clusterl  Ccont'd)  cluster  centers  is  to  be  distri- 

buted among  the  data  classes. 

Each  data  class  can  be  represented 
by  an  equal  number  of  cluster 
centers,  or  the  number  may  be  based 
on  the  original  data  distribution. 

The  clustering  technique  proceeds 
in  the  following  manner:  the  vector 
whose  Euclidean  distance  from  the 
mean  is  greatest  is  the  seed  of  the 
first  cluster.  If  there  are  to  be 
n vectors  per  cluster,  the  n-1 
closest  vectors  to  the  first  seed 
are  found.  The  mean  of  these  n 
vectors  forms  the  first  cluster 
center  and  the  first  vector  in 
the  reduced  data  tree.  The  method 
for  finding  succeeding  "seed" 
vectors  is  to  find  the  vector 
farthest  from  the  current  seed 
vector  simultaneous  with  finding 
the  n-1  closest  vectors. 

When  all  the  cluster  centers  have 
been  located,  the  routine  asks  for 
a new  treename  for  the  clustered 
tree  and  calls  file_input  to  create 
the  new  tree. 

' Flow  Chart:  See  following  page. 
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MOOS  Function  Name:  comnod 

MOOS  Function  Number:  26 


Calling  Sequence: 
Input  Parameters: 
Output  File  Settings: 


Program  Description: 


Flow  Chart: 


Type  "comnod  ^(treename)  i j(nodename)  ; " 

Standard  optional  data  set  selection  parameters 

The  vectors  from  the  data  class  files  to  be 
combined  are  copied  into  a new  data  class  file 
and  the  old  files  deleted.  Mean  and  covari- 
ances are  updated  in  the  treename  file,  and 
sysdata  is  adjusted  to  reflect  the  modified 
tree  structure. 

comnod  first  checks  if  a combination  is 
possible  under  the  given  node  - if  not,  it 
prints  a message  and  exits. 

If  a combination  is  possible,  a list  of  possible 
nodes  to  be  combined  is  presented.  The  user 
then  supplies  the  number  of  nodes  to  be  com- 
bined and  a list  of  these  nodes  (display 
characters).  If  these  entries  agree  with  the 
list  of  possible  nodes,  comnod  asks  for  a 
new  4 character  nodename. 

Finally,  the  program  modifies  the  data  class 
files,  treename  file,  and  sysdata  to  reflect 
the  new  tree  structure  and  exits. 

See  following  page. 
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Internal  Subroutine  Name:  conmatsrn 


Calling  Sequence: 
Input  Parameters: 
ptrs 


Input  File  Settings: 


Output  File  Settings: 


Program  Description: 


call  conmatsrn  (ptrs) 


(5)ptr  ptrs(l)  - sysdata 
ptrs(2)  - scratch 
ptrs(3)  - display 
ptrs(4)  - treename 
ptrs(5)  - mooslogic 

The  display  file  must  be  set  up 
according  to  the  confusion  matrix 
display  file  format  described 
previously  (section  3.1)  In  the 
case  of  partial  pairwise  evaluation 
some  information  must  also  be  store 
in  the  scratch  file. 

If  conmatsrn  calls  for  output  to  the 
printer,  eval_f ile  is  created  in  the 
user's  login  directory  and  the  out- 
put is  stored  there  until  it  can  be 
printed . 

The  C2 , CIO,  Cll,  C12,  C24,  C25,  and 
C26  entries  in  the  display  file  are 
set  by  conmatsrn 

conmatsrn  checks  the  display  code 
and  calls  the  appropriate  subroutine 
to  output  the  desired  confusion 
matrix  or  confusion  matrix  summary 
to  the  correct  device. 


Flow  Chart : 


See  following  page 
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Internal  Subroutine  Name: 


conmatsm$disply 

call  conmatsm$disply  (ptrs) 


(5)  ptr  ptrs(l)  - sysdata 
ptrs (2)  - scratch 

ptrs(3)  - display 
ptrs(4)  - treename 
ptrs(5)  - mooslogic 

The  display  file  must  be  set  up 
according  to  the  confusion  matrix 
display  file  format  described  pre- 
viously (section  3-1).  In  the  case 
of  partial  pairwise  evaluation, 
some  information  must  also  be  stored 
in  the  scratch  file. 

conmatsm$disply  outputs  a confusion 
matrix  to  the  screen  and  asks  the 
user  if  a printout  with  a detailed 
error  listing  is  desired.  If  the 
user  selects  this  option,  internal 
subroutine  logicp  is  called  and  a 
confusion  matrix  followed  by  a de- 
tailed error  listing  is  output  to 
the  printer. 

See  following  page. 


Calling  Sequence 


Input  File  Settings: 


The  display  file  must  be  set  up 
according  to  the  confusion  matrix 
display  file  format  described  in 
Section  3-1. 


Program  Description:  conmatsm$summary  outputs  summary  infor- 

mation about  a confusion  matrix, 
including  the  overall  number  of  cor- 
rectly classified  vectors  and  errors 
for  each  class.  If  the  display  flag 
is  set  to  4,  this  information  will 
always  go  to  the  screen.  If  the  dis- 
play flag  is  1,  and  the  number  of 
true  classes  is  greater  than  26,  the 
summary  information  will  be  displayed 
on  the  screen  and  printed. 


Flow  Chart: 


See  following  page 


Internal  Subroutine  Name:  conmatsm$ summary 


ptrs  (5)  ptr  ptrs(l)  - sysdata 

ptrs (2)  - scratch 
ptrs (3)  - display 
ptrs (4)  - treename 
ptrs(5)  - mooslogic 


call  conmatsm$ summary  (ptrs) 


Internal  Subroutine  Name: 


cos 


Calling  Sequence: 
Input  Parameters : 

option  1 , 

Output  File  Settings: 
Program  Description: 


call  cos(option) 


the  function  number  of  the  current 
moos  option 

The  current  logic  file  is  adjusted  to 
show  the  addition  of  the  one-space 
group  logic. 

The  logic  file  is  initiated  and  the 
index  to  the  next  free  location  is 
obtained.  The  user  then  associates 
regions  of  the  histogram  with  classes 
The  subroutine  "sln$gn"  is  called  to 
verify  the  existence  of  all  the 
classes.  If  no  errors  are  encountered 
these  classes  are  assigned  a logic 
node  number. 

The  logic  block  is  updated  with  one- 
space  group  logic  and  word  5 is  set 
to  the  next  free  location  in  the 
file.  The  program  exits  by  calling 
"option. " 


Flow  Chart : 


See  following  page 


Internal  Subroutine  Name:  cpairwise_logic 


Calling  Sequence: 


Input  Parameters: 


call  cpairwise_logic  (Iptr,  aptr, 
nptr,  dcptr,  erptr,  ndim,  cn, 
nnum,  In,  max,  cflag,  optr) 


lptr 

aptr 


nptr 


dcptr 


erptr 


ndim 


cf  lat 


ptr  pointer  to  mooslogic  file 

ptr  pointer  to  a priori  probability 
section  of  mooslogic  file 

ptr  pointer  to  current  logic  node 
in  mooslogic  file 

ptr  pointer  to  the  vector  being 
evaluated 

ptr  pointer  to  the  next  available 
entry  in  the  pair_error_f ile 

fixed  (35)  no.  of  dimensions 

fixed  (35)  current  logic  node 
number 

(128)  fixed  (35)  array  of  indices 
referring  to  the  table  of  class 
names  in  the  mooslogic  file.  If 
i is  a logic  node  number,  nnum(i)  = 
index  to  the  class  name  associated 
with  i 

(128,  72)  fixed  (35)  If  i is  a 
pairwise  logic  node  number,  ln(i,l) 
= the  first  logic  node  number 
beneath  i,  ln(i,  2)  = the  next 
logic  node  number,  etc. 

fixed  (35)  Usually  set  to  0.  If 
cflag  is  set  to  1,  pairwise  logic 
outputs  vote  counts  for  each 
classified  vector  to  the  user- 
output  stream. 


'4 
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optr 


Output  Parameters: 
max 


cn 


Input  File  Settings: 


Output  File  Settings: 


Program  Description: 


ptr  pointer  to  a file  which  contains 
overlap  information. 


fixed  (35)  The  vote  count  at  which 
the  vector  was  classified.  This 
parameter  is  used  by  partial 
pairwise  evaluation  (pevpw) . 

fixed  (35)  The  logic  node  number 
to  which  the  vector  is  assigned. 

The  word  pointed  to  by  "erptr"  in 
the  pair_error_file  must  be  set 
to  the  logic  node  number  of  the 
true  class.  The  next  word  in  this 
file  must  be  set  to  the  minimum 
vote  count  threshold. 

If  a vector  is  incorrectly  classi- 
fied, tied,  or  rejected,  an  entry 
is  created  in  the  pair_error_file 
for  that  vector. 


coairwise_logic  classifies  a given  vector  using  the 
information  stored  at  a pairwise  logic  node  in  a mooslogic 
file.  If  the  vector  is  misclassified,  tied,  or  rejected,  an 
entry  is  made  in  pair  error_file.  cpairwise  logic  is  used  in 
place  of  pairwise_logTc  when  partial  classification  information 
from  a previously  performed  closed  decision  boundary  logic  is 
available.  See  write-ups  on  closed  decision  boundary  logic  in 
Section  I. 
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MOOS  Function  Name: 


crdinput 

1 


Type  in  "crdinput  (treename)" 

A unique  8 -character  tree  name 


Replace  a "notatree"  entry  in  the 
FOREST  section  with  a new  tree  entry 
and  add  an  entry  to  the  SCHOOL  segment 
(or  replace  a "nono"  entry)  for  each 
apriori  node. 

Set  CSS1  = (treename) 

CSS 2 = **** 

reset  CSS4  if  appropriate 

Create  a file  under  name  "treename" 
and  set  parameters  within  the  file 
as  appropriate  for  the  input  data 

Create  a file  for  each  apriori  data 
class  and  store  the  appropriate  data 
vectors 

Program  Description:  "crdinput"  transfers  data  from  user’s 

file  "testdata"  into  the  user’s 
temporary  storage  area  in  standard 
MOOS  data  tree  format. 


Flow  Chart:  See  following  pages 
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MOOS  Function  Number : 
Calling  Sequence: 

Input  Parameters : 

Output  File  Settings: 
"sysda ta"  Fil e_ 

' 

TREENAME  File 
DATACLASS  Files 


Set  DAT ACL ASS 
file  params 
D1  (nvecs)  an 
D2  (ndim) 


Find  an  entry 
in  the  SCHOOL 
for  DATACLASS 


Set  TREENAME 
file  params 
& SCHOOL  entry 
parameters 


Input  a data 
vector  from 
"testdata" 


Add  to  sum  & 
sum  square  ma 
trices,  tmean 
pmean,  tcov, 


/ F 

/ 


Is 

k =ndim 


yes 

r , 

k = 1 

—i 

Store  pcov(k)  = 
covariance  element 
for  this  DATACLASS 
in  file  TREENAME 


7 

Is 

m = ncls?  > yes 
no 


Store  tcov(k)* 
appropriate  co 
variance  ele- 
, ment  in  file 
l TREENAME 


k = k + 1 


no 


Is 

vk  ^ ndim  * 
(ndimfl)  / 2? 


^es 

m - m + 1 


7 
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MOOS  Function  Name: 


MOOS  Function  Number: 


Calling  Sequence: 


Input  Parameter: 


Program  Description: 


Type  in  "crdv$sa2  J^(treename)  (nodename)  " 

Standard  optional  data  set  selection  parameters 

crdv$sa2  calls  crdv$coord  which  projects 
the  selected  data  set  on  any  two  coordinate 
axes . 


MOOS  Function  Name: 


crdv$sa 1 


MOOS  Function  Number: 


Calling  Segue  nee: 


Input  Parameter: 


Program  Description: 


Type  in  "crdv$sal  j(treename);  (nodename)  " 

Standard  optional  data  set  selection  parameters 

crdv$sal  calls  crdv$coordl  which  projects 
the  selected  data  set  on  any  coordinate  axis. 


MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 


Input  Parameter: 


Program  Description: 


crdv$ld2 

67 

Type  in  "crdv$ld2  I (treename)  (nodename)'  " 

I A j 

Standard  optional  data  set  selection  parameters 

crdv$ld2  calls  crdv$coord  which  projects  the 
selected  data  set  on  any  two  coordinate  axes. 
Logic  may  be  created  from  the  resulting  dis- 
play. 
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MOOS  Function  Name: 


crdv$ldl 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 

Internal  Subroutine  Name: 

Calling  Sequence: 

Input  Parameters: 
ptrf 

x 

Output  File  Settings: 
Program  Description: 


82 

Type  in  "crdv$ldl  |(treename)  (nodename)  " 

Standard  optional  data  set  selection  parameters 

crdv$ldl  calls  crdv$coordl  which  projects  the 
selected  data  set  on  any  coordinate  axis. 

Logic  may  be  created  from  the  resulting  dis- 
play. 


crdv$coord 

crdv$coordl 

call  crdv$coord  (ptrf,  x) 
call  crdv$coordl  (ptrf,  x) 


(5)  ptr 


ptrf(l) 
ptrf(2) 
ptr f ( 3) 
ptrf(4) 
ptrf (5) 


sysdata 

scratch 

display 

treename 

mooslogic 


fixed  (35)  x must  be  set  to  1 for  logic  design, 
0 for  structure  analysis. 


Entry  coord  sets  up  display  for  a two-space 
plot  by  calling  ss$display.  Entry  coordl  sets 
up  csdata  for  a one- space  plot  by  calling 
ss$display  1 . 

coord  and  coordl  allow  the  user  to  specify 
coordinate  axes  on  which  to  project  the 
selected  data  set.  The  display  (or  csdata) 
file  is  then  set  up  and  the  appropriate  dis- 
play routine  called. 


Flow  Chart: 


See  following  page. 
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Flow  Chart:' 


creatlog 

type  in  "creatlog" 

Display  file  must  be  set  up  for  a 
1 or  2 space  display  (i.e.,  some  1 
or  2 space  logic  design  routine  must 
have  been  initiated  before  "creatlog") 

"creatlog"  is  the  control  routine  for 
the  1 and  2 space  logic  creation 
routines.  It  checks  the  option 
number  in  sysdata,  and  from  this  it 
can  tell  if  a 1 or  2 space  logic 
creation  is  to  be  done.  If  2 space, 
"creatlog$spc2"  is  called.  If  1 
space,  "cos"  is  called. 

Next  page 


Internal  Subroutine 


Calling  Sequence: 


Input  Parameters : 
xc 
yc 

xbpl 

ybpl 

xbp2 

ybp2 

ndim 

xptr 

yptr 

cptr 


Program  Description 


Name : creatlog$discrim 

call  creatlog$discrim  (xc,  yc, 

xbpl,  ybpl,  xbp2,  ndim,  xptr,  yptr, 

cptr) 


x coordinate  of  the  convex 
boundary 

y coordinate  of  the  convex 
boundary 

x coordinate  of  1st  point 
y coordinate  of  1st  point 
x coordinate  of  2nd  point 
y coordinate  of  2nd  point 
dimensionality  of  data 
address  of  x coordinate  of 
projection  vector 
address  of  y coordinate  of 
projection  vector 
address  of  where  to  place 
and  threshold 


side  of  the 

side  of 

of  boundary 
of  boundary 
of  boundary 
of  boundary 

the 

the 

discriminant 


I 


"creatlog$discrim"  calculates  the 
discriminants  and  threshold  for  each 
line  segment  of  a boundary. 


Flow  Chart: 


contents  of 
cptr  «=-  thresh 


* 


m 


1 p-v 


Internal  Subroutine  Name : 

Calling  Sequence: 

Input  Parameters: 
nmes 

Output  Parameters : 
nclses 
lows 


Program  Description: 


Flow  Chart: 


creatlog$getnames 

call  creatlog$getnames  (nmes, 
nclses,  lows) 


list  of  display  symbols 


the  number  of  classes  in  the 
nmes  array 

an  array  of  four-character  node 
names  which  correspond  to  the 
list  of  display  symbols  in  the 
nmes  array 

creatlog$getnames  takes  a list 
of  display  symbols  entered  by 
the  user  (creatlog) , and  returns 
the  full  four-character  class 
names  which  correspond  to  these 
display  symbols. 

next  page 
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Internal  Subroutine  Name:  creatlog$spc2 


Calling  Sequence : 
Input  Parameters : 
pd 

sysptr 

opt 

Input  File  Settings: 
Program  Description: 


Flow  Chart: 


call  creatlog$spc2  (pd,  sysptr,  opt) 


the  pathname  to  the  process  directory 
pointer  to  sysdata 
the  current  option  number 

Display  file  must  be  set  up  for  a 
2 space  display 

"creatlog$spc2"  removes  the  necessary 
information  from  the  display  file  to 
create  the  logic  for  a 2 space  display. 
It  uses  routine  "creatlog$discrim" 
to  calculate  the  discriminants  and 
threshold  for  each  line  segment  of 
the  boundary(s)  drawn  in  2 space. 

Upon  completion,  it  calls  "pevgl" 
to  do  the  partial  evaluation  of  the 
created  logic. 

See  next  page 
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I 

t 


B 


SN1  , =2 
cln 


sttDcln  " 
nextblock 


get  list  of 
names  of  classes 
on  convex  side 
of  bndy  1 


call  sln$gn  t 
assign  a logi 
node  for  this 
et  of  classes 
Inode 2) 
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class  names 
excess  side 
of  boundary 


call  sln$gn  to! 
assign  a logicj 
node  for  excest 
side  (Inode 3)  ! 


go  to  logic 
block  for  this 
logic  node 


LGP2=option# 


LGP3  = #bndys 
from  display 
file 


1 ■ 


Call  "creatlog$disc 
to  calculate  dis- 
criminate coefficiei 
threshold,  & to  sto 
them  in  logic  file. 


Return 


| Call  "pevgl' 
1 to  do  partial 
evaluation 

n 

..  J 

Moos  Function  Name: 


Moos  Function  Number: 
Calling  jSequence^ 
Input  Parameters: 

Output  File  Settings: 


Pru gi  dm  Di-bci • i p ti o n : 


creatree 

3 

type  in  "creatree  (newtree)" 

the  standard  optional  data  set  selection 
parameter 

"sysdata"  reflects  the  addition  of  a new 
tree  in  the  system.  newtree  file  is 
created,  and  appropriate  values  are 
inserted . 

Data  class  files  are  created  for  each  node, 
and  the  appropriate  vectors  are  stored 
in  each. 

creatree  creates  (newtree)  according  to 
user  input  options.  The  user  indicates 
the  number  of  nodes  in  (newtree):  0 
indicates  merge , I 0 indicates  combine, 
and  > 0 indicates  a specification.  The 
user  next  states  the  number  and  names 
of  the  trees  from  which  newtree  is  to 
be  created.  The  user  is  then  asked  if 
vector  id's  should  be  sequenced,  and  if 
he  wishes  a listing  of  these  changes.  If 
a listing  is  desired  or  the  combine 
option  is  invoked,  an  output  file 
create_file  is  created  in  his  working 
directory.  Lnodes  is  then  called  for 
each  tree  specified  to  be  used  in 
creating  treename. 

Next,  the  scratch  file  is  set  up  to 
indicate  how  (newtree)  is  to  be  formed. 

If  the  option  is  combine,  the  display 
characters  are  checked  for  uniqueness  and 
changed  if  required.  If  the  option  is 
specify,  user  interaction  specifies  how 
the  tree  is  to  be  constructed.  If  the 
option  is  merge,  the  trees  are  checked 
for  similarity  of  names. 

According  to  the  mapping  in  scratch,  the 
vectors  in  the  appropriate  nodes  are 
copied  into  the  correct  dataclass  files, 
the  treename  file  is  set  up  by  calls  to 
mmeanacv  for  the  senior  node  and  the  node 
being  processed,  and  sysdata  is  adjusted. 
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If  any  errors  occur,  (newtree)  is 
deleted.  If  no  information  is  put  into 
create_file,  it  is  deleted.  The  trees 
used  in  forming  (newtree)  are  not 
affected  by  this  routine. 

creatree  scratch 

file:  1 Cl 

C2(l) 

C3(l ) 

C3(2) 


Cl  number  of  nodes 
C2(i)  number  of  nodes 
from  tree(i)  followed 
by  node  names  C 3 (j) 


C3(C2  (1 )) 
C2(2) 

C 3 ( 1 ) 
C3(2) 

: 

C3(C2  (2) 


I 

\ 


Flow  Chart : 


See  following  page 
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Initiate  each 


Check  equality  1 


Extract  tree 
indices 


Wish  listing? 


Create  output 
file 


Call  Inodes  for  each 
tree,  set  up  array 
Id  (i,  j)  i=l  to  numtree 
j=l  to  number  of 

I 

lowest  nodes 


Set  up  scratch  so  that 
all  similarly  named 
nodes  are  merged  into 
new  node  of  same  nami 


yes 

fM 

User  interaction 

decides  scratch 

S’ 

file 

MOOS  Function  Name: 
Calling  Sequence: 
Input  Parameter: 
Output  File  Settings: 
"sysdata" 


treename  file 


dataclass  files 


Program  Description: 


Flow  Chart : 


crrandts 

type  in  "crrandts (newtreename)" 

A unique  eight-character  treename 


A new  tree  is  created  in  sysdata 
with  a structure  identical  to 
that  of  the  tree  from  which  data 
are  being  extracted.  The  name 
assigned  to  this  new  tree  is 
newtreename. 

A file  called  "newtreename"  is 
created  for  the  vectors  under  the 
new  data  tree. 

A data  class  file  is  created  for 
each  a priori  data  class  under 
newtreename . 

"crrandts,"  given  a data  tree  of 
lowest  nodes , randomly  removes  a 
given  percentage  of  the  vectors 
from  this  data  tree  and  creates 
a new  data  tree  which  will  con- 
tain the  removed  vectors.  The 
purpose  of  this  program  is  to 
create  a work  data  set  and  a 
test  data  set. 

See  following  pages 
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crrandts 


Start 

I 

T 

call 

ut$ckparam 


iget  name  of  tree 
(where  vectors 
are  to  be 
extracted  from 
- — ^ oldtree 
f 

r - - l , 

find  oldtree 
in  sysdata 

- — 1 , 

get  tree  characters, 
number  of  classes, 
number  of  total 

vectors . number,  of 
dimension's  or  olatriee 

, i — - 

initiate  old- 
itree  treename 
'file 

get  percent  of 
data  to  be 
extracted  from 
oldtree  -*pc 

- 1 

current<-first- 
class  (oldtree^ 
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initiate  data 
class  file 
class  name 
oldtree  ! 


pc*number  v yes 
©4  vectors  h 
classname 


fill  in  the 
tree  name  fil^ 
for  this  daca 
class 


! delete  a vector 
i from  classname 
under  oldtree  and 
insert  it  in  class- 
i name  under  newtree. 


current  ^ — 

nextclass 

(oldtree) 


ctsm 


Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters : 
ptrs 


In 

Output  File  Settings: 


Program  Description: 


call  ctsm  (ptrs,  In) 


(5)ptr 


ptrs (1) 
ptrs (4) 
ptrs (5) 


- "sysdata” 

- "treename" 

- "mooslogic 

file" 


fixed  (35)  logic  node  whose  tem- 
porary symbols  are  to  be  col- 
lapsed 

The  temporary  symbols  of  any  vec- 
tors in  the  dataclass  files  asso- 
ciated with  (in)  are  examined. 

If  a given  temporary  symbol  is 
from  a node  lower  than  (In)  in 
the  logic  tree,  it  is  reset  to 
In. 


ctsm  searches  all  dataclass  files 
associated  with  logic  node  (In) 
for  vectors  whose  temporary  sym- 
bols are  equal  to  logic  nodes 
below  logic  node  (In)  in  the 
logic  tree.  The  temporary  sym- 
bols are  then  set  to  In. 


Flow  Chart: 


MOOS  Function  Name: 


dataprnt 


MOOS  Function  Number: 
Catling  Sequence: 

Input  Parameters: 

Output  File  Settings: 

Program  Description: 


Flow  Chart: 


£5 

l ype  in  "dataprnt  j(treename) 1 '(nodename) 

Standard  optional  data  set  selection  parameter 

da taprnt_ file  is  created  in  user's  login 
directory.  All  output  from  dataprnt  is  placed 
in  this  file. 

dataprnt  consists  of  eight  basic  printout 
options  which  allow  the  user  to  get  certain 
basic  statistical  information  about  a data  set. 
Most  of  the  routine  is  involved  with  formating 
information  which  already  exists  (such  as 
mean  vectors  and  covariance  matrices  which 
are  stored  in  the  treename  file  of  the  data  set. 
If  the  "e"  option  is  selected,  values  are 
printed  in  an  exponential  format.  The  "c" 
option  allows  the  user  to  designate  a subset 
of  the  selected  data  set  to  be  processed. 

More  detailed  explanation  of  the  available 
options  can  be  found  in  the  user  documenta- 
tion. 

See  following  page. 
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. dataprnt 

I 


Create  dataprnt 
file  in  users 
login  directory 


Present  list  of  8 
options  and  ask 
user  to  select  < 
i those  he  wants  j 


Option  1 
^elecLed? 


yes 


no 


! 

i. 

Option  2 
selected? 


Print  all 
vectors  in 
data  set 


yes 


Print  selected 
-single  vectors 


no  -~r- 


Option  3 
\^selected? 


yes 


Print  ranges 
and  overlap 


no 


V 

Option  4 
selected? 


no 


-X 
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yes 


Print  means 
^and  standard 
deviations 

i 


Print  dif- 
>4  ference  be- 
tween means 


Rint  co- 
variance 
matrices 


Option  6 
selected^ 


Print  tree 
structure 


Option  8 
selected  ? 


dprint  and 
delete 

dataprnt  file 


Option  7 

yes  Print  cor 

selected 

relation 

matrices 

r 
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Internal  Subroutine  Name:  dcrim 

Calling  Sequence : call  dcrim  (ptrd,  ptrn,  ptric, 

ptrs , ndim) 

Input  Parameters : 

pointer  to  a mean  difference  vector 
pointer  to  the  packed  lumped 
covariance  matrix 

pointer  to  an  array  of  ndim  words 
set  to  0 (include  measurement) 
or  1 (do  not  include  measurement) 
pointer  to  a storage  array  for  the 
Fisher  discriminant  and  an  ortho- 
gonal discriminant  (must  be  at  least 
2*ndim  words  in  length) 
dimensionality  of  the  data 


ptrd 

ptrw 

ptric 

ptrs 


ndim 


Output  Parameter: 

ptrs  - pointer  to  the  location  of  the  stored 

Fisher  discriminant  and  an  optional 
orthogonal  discriminant 

Program  Description:  dcrim  computes  the  Fisher  discrim- 

inant and  an  orthogonal  discriminant 
for  two  data  sets  (each  composed 
of  single  or  multiple  data  classes.) 
The  original  measurement  set  may  be 
reduced  prior  to  program  call  (by 
setting  corresponding  elements  in 
array  ic  to  1)  or  by  the  linear 
dependency  check  routine  within  the 
program.  In  either  case,  the  dis- 
criminant weight  for  deleted  measure- 
ments is  set  to  zero  prior  to  sub- 
routine completion.  Storage  area  for 
the  discriminants  must  be  provided 
by  the  calling  routine. 

Flow  Chart : See  following  page 
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Start 


load  ic  array 

load  mean  difference  vector 
into  del 

£23d_pack§d_.  covariance  into 


delete 

linearly 

dependent 

measurements 


educe  del 


compute  in vers 
of  w (determin 
ent  of  w = det 


calculate  Fisher 
discriminant  and 
orthogonal  dis- 
criminant in  array 
coeg  i 


orthonormalize 


expand  coeg  and 
store  in  location 
ptrs 


. Return 
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MOOS  Function  Name: 


deletlog 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 


28 


it  r ir  -»  // 

Type  deletlog  |(treename)J  (nodename ); 

Standard  optional  data  set  selection  parameters 


Output  File  Settings:  deletlog  deletes  entries  in  the  node  part  of  the 

structure  part  of  the  "mooslogic  file". 

Program  Description:  deletlog  first  displays  the  selected  logic  tree 

and  asks  the  user  to  name  a logic  node  to  be 
deleted.  If  there  is  an  independent  reject 
strategy  present  at  the  indicated  node,  the 
user  is  given  a choice  of  deleting  only  the 
independent  reject  strategy  or  the  entire  node. 
If  removal  of  the  entire  node  is  chosen, 
entries  in  that  node  and  all  nodes  "below"  it 
in  the  logic  tree  are  deleted.  If  the  user 
chooses  to  delete  logic  node  1 the  mooslogic 
file  is  deleted. 


Flow  Chart: 


See  Following  page. 
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MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters : 
Program  Description: 


Flow  Chart : 


deletnod 

50 

Type  in  "deletnod  [ ( treename) ] 

[ (nodename) ] M 

standard  optional  data  set  names 

"deletnod"  picks  up  the  necessary 
user  interaction  to  delete  a node. 

It  then  calls  "deletnod$d"  to  delete 
the  node. 


i 


deletnod 


£Z 


Return 


yes 


Output  error 
message 


i 


I 


I 
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Internal  Subroutine  Name:  deletnod$ch_depth 


Calling  Sequence: 

Input  Parameters: 
Program  Description: 

Flow  Chart: 


call  deletnod$ch^depth  (treename, 
nodename) 

tree  name  and  class  name 

"deletnod$ch_depth" , given  a treename 
and  nodename,  decrements  by  1 the 
S6  entry  of  all  nodes  below  nodename 
in  the  sysdata  file. 


deletnod$ch_depth 


Start 


Get  list  of  all  ^ 
nodes  below 
classname 


Decrement 
depth  of  all 
lower  nodes 


— 

Return 
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Internal  Subroutine  Name:  deletnod$d 


[« 

fi 

I 


Calling  Sequence:  call  deletnod$d  (treename,  nodename, 

ptrs  ) 

Input  Parameters : 

8 -character  tree  name 
4 -character  node  name 
array  of  4 pointers 
ptrs(l)  = sysdata  pointer 
ptrs (2)  = scratch  pointer 
ptrs(3)  = display  pointer 
ptrs (4)  = treename  file  pointer 

Output  File  Settings:  css2  of  sysdata  is  set  to  "nono". 

Entry  nodename  is  deleted  in  sysdata 
and  all  entries  are  changed  to 
reflect  this  change. 

Data  class  file  nodename  is  deleted. 

Entry  nodename  is  deleted  from  the 
tree  name  file. 

If  nodename's  senior  node  has  only 
2 nodes  below  it  before  deletion,  the 
senior  node  of  nodename  in  the  tree 
name  file  is  deleted,  and  the  other 
node's  associated  data  class  file  is 
renamed  the  name  of  the  senior  class 
of  the  nodename. 

Also  if  the  same  situation  of  only  2 
nodes  exists  and  if  the  other  node 
is  a lowest  node,  the  data  class 
file  for  it  is  renamed  to 
"treecharacter"  | | "the  senior  class 
of  nodename" . 

"deletnod$d"  deletes  a lowest  node 
from  a specified  tree.  Upon 
completion  of  deleting,  it  traverses 
back  up  through  the  data  tree  and 
recomputes  the  means  and  covariance 
matrices  to  reflect  the  deletion. 

If  the  specified  node  to  delete  is 
one  of  the  two  nodes  below  the  deleted 
node's  senior  node,  the  senior  node 
and  the  other  node  are  combined  to 
form  one  node. 


Program  Description: 


treename 

nodename 

ptrs 


Delete  the  speci- 
fied classname 
entry  from  its 
associated 
treename  file 


"nono"  out 
specified  class 
name  in 
sysdata 

— -A. 

Get  senior  & 
nextclass  of  de-l 
leted  class  | 


| Search  for  link  1 
to  specified 
classname  in 
'sysdata 

• r J 

- t- , 

If  link  is  from 
senior,  make 
firstclass  (senior) 
= nextclass 
(deleted  .class) 


i 





Else  make  node,  who 
nextclass  = deletion 
node,  such  that 
nextclass  = nextclass 
(deletion  node) 


of  nodes  u: 


Change  all  links 
in  senior  to  links 
in  remaining 


If  the  remaining  node 
is  a lowest  node,  re- 
name its  dataclass  file 
to  its  senior  class  rami 


iim-w  un. 


Utility  Function  Name 
Calling  Sequence: 
Input  Parameters: 
treename 


"all" 


Output  File  Settings: 


mi  ■ 


deletree 

type  in  "deletree(treename/"all" ) " 


specify  a particular  data  set 
perform  operation  for  all  data  sets 
in  "sysdata." 


Directory 

Tables 


Program  Description: 


process  directory  will  be  reduced 
"sysdata"  will  be  reduced 

This  routine  calls  s_p$tdel  and  returns 
control  to  the  user.  The  "sysdata" 
file  reflects  the  reduction  of  data 
sets . 


i 

1 

I 

■ 

I 
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Internal  Subroutine  Name:  dg$acl 

Calling  Sequence:  call  dg$acl  (trptr,  array,  n,  m) 

Input  Parameters: 


trptr 

array 

n 


ptr  pointer  to  tree  name  file. 

(72)  char  (4)  array  of  node  names  to  be  stored, 
fixed  (35)  total  number  of  nodes  in  (array). 


Output  Parameters: 
array 
m 


Program  Description: 


(72)  char  (4)  the  given  array  of  node  names, 
sorted  into  2 groups. 

fixed  (35)  the  number  of  nodes  in  the  first 
group  in  (array). 

dg$acl  finds  the  pair  of  nodes  whose  mean 
vectors  have  the  greatest  Euclidean  separa- 
tion. The  rest  of  the  nodes  are  then  sorted 
according  to  which  nodes  of  this  pair  they 
lie  closest  to. 


Flow  Chart: 

dg$acl 


V 


Using  dg$dist, 
the  Euclidean  d] 
each  pair  of  noc 
which  pair  has 
tion 

compute  and  store 
istances  between 
es  and  note 
maximum  separa-j 

1 

V 

I 

Sort  nodes  according 
to  which  node  of  the 
previously  "noted" 
pair  they  are  closest  t 
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Internal  Subroutine  Name:  dg$dcrmsu 

Calling  Sequence:  call  dg$dcrmsu  (treeptr,  ptrscr,  ar,  n,  m, 

a,  b) 


Input  Parameters: 


treeptr 

ptrscr 

ar 

n 

m 


Output  Parameters: 
a 
b 


Output  File  Settings: 


ptr  pointer  to  "treename"  file. 

ptr  point  to  "scratch"  file 

(72)  char  (4)  array  of  node  names. 

fixed  (35)  no.  of  names  in  (ar). 

fixed  (35)  no.  of  nodes  in  first  group  of 

nodes  in  (ar). 


(100)  fixed  (35)  mean  vector  for  the  first 
group. 

(100)  fixed  (35)  mean  vector  for  the  second 
group. 

The  scratch  file  is  used  as  a buffer  area  for 
merging  means  and  covariance  matrices. 

The  final  lumped  and  unpacked  covariance 
matrix  and  mean  difference  vector  are  then 
placed  there.  When  dg$dcrmsu  returns,  the 
first  ndim  words  of  scratch  contain  the  mean 
difference  vector,  the  next  ndim*ndim  words 
contain  the  lumped  covariance  matrix. 


Program  Description:  dg$dcrmsu  is  passed  two  groups  of  lowest 

node  names  in  the  array  ar.  The  program 
uses  mmeanaev  to  produce  a lumped  mean 
and  covariance  matrix  for  each  of  these 
groups. 


’ 1 


The  mean  difference  vector  is  then  computed 
and  loaded  into  the  first  ndim  words  of 
scratch. 

If  sense  switch  number  5 has  been  set  (by 
dg$dd),  the  lumped  covariance  matrices  are 
multiplied  by  the  number  of  vectors  in  their 
respective  groups  to  form  "scatter"  matrices. 
The  lumped  covariance  or  scatter  matrices 
are  then  added  together  and  loaded  into  the 
next  ndim:;:ndim  words  of  scratch. 


4-1  of. 


Flow  Chart: 


Return 


dg$dd 


Internal  Subroutine  Name 


Calling  Sequence 


call  dg$dd  (sptr,  ndim) 


ptr  pointer  to  area  which  indicates  which 
measurements  are  to  be  eliminated, 
fixed  (35)  no.  of  dimensions. 


ndim 


Output  File  Settings 


ndim  words,  starting  at  the  location  of  sptr 
are  set  to  zero  if  a measurement  is  to  be 
used,  one  if  it  is  to  be  eliminated. 


dg$dd  gives  the  user  the  choice  of  finding  the 
fisher  direction  using  either  a scatter  or  co- 
variance  matrix,  and  also  allows  the  user  to 
select  which  measurements  he  wishes  the  cal 
culation  to  be  based  on. 


Program  Description 


Flow  Chart 


See  following  page 





Internal  Subroutine  Name:  dg$dist 


Calling  Sequence: 

Input  Parameters: 

tptr 

inxi 

inx2 


call  dg$dist  (tptr,  inxi,  inx2,  dst) 


ptr  pointer  to  treename  file. 

fixed  (35)  index  to  an  entry  in  the  treename 

file. 

fixed  (35)  index  to  an  entry  in  the  treename 
file. 


Output  Parameters: 
dst 


Program  Description: 
Flow  Chart: 


float  Euclidean  distance  between  mean 
vectors  found  at  treename  file  entries. 

dg$dist  finds  the  Euclidean  distance  between 
two  mean  vectors 


dg$dist 


Compute  Eucli-i 
dean  distance  be- 
tween mean 
vectors 
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Utility  Function  Name: 
Calling  Sequence: 
Program  Description: 


Flow  Chart: 


displacm 

Type  in  "displacm" 

displacm  generates  the  four  pointers  if  the 
display  file  code  indicates  a confusion  matrix, 
sets  the  second  word  of  the  display  file  to  1, 
and  then  calls  conmatsm. 


divergence 

call  divergence  (clptr,  c2ptr, 
mlptr,  m2ptr,  nd,  J) 


ptr  pointer  to  the  covariance  matrix 
(square)  of  the  1st  class 

ptr  pointer  to  the  covariance  matrix 
(square)  of  the  2nd  class 

ptr  pointer  to  the  mean  vector  of 
the  1st  class 


ptr  pointer  to  the  mean  vector  of 
the  2nd  class 


Program  Description: 


fixed  (35)  no.  of  dimensions 


float  divergence  value 


divergence  calculates  the  divergence  measure  for  a pair  of 
classes.  For  a more  detailed  description  of  the  operation  of 
divergence,  see  the  program  listing  documentation. 
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Internal  Subroutine  Name;  divergence$covsetup 


Calling  Sequence: 


Input  Parameters: 


call  divergence$covsetup  (covptr, 
cptr,  smeas,  ndim,  order) 


covptr 


smeas 


ndim 


order 


Output  Parameters: 


ptr  pointer  to  original  covariance 
matrix  (lower  triangle) 

(100)  fixed  (35)  non-zero  values 
in  this  array  indicate  measurements 
whose  rows  and  columns  are  to  be 
kept 

fixed  (35)  no.  of  dimensions  of 
original  covariance  matrix 

fixed  (35)  no.  of  dimensions  of 
covariance  matrix  to  be  returned 


cptr  ptr  pointer  to  returned  covariance 

matrix  (square) 

Program  Description: 

divergence$covsetup  removes  the  rows  and  columns  associated 
with  a set  of  selected  measurements  from  a covariance  matrix. 


For  a more  detailed  description  of  the  operation  of 
divergence$covsetup , see  the  program  listing  documentation. 


Internal  Subroutine  Name : divergence$fast_divergence 


Calling  Sequence: 


Input  Parameters: 


call  divergence$fast_divergence 
(clptr,  c2ptr,  ilptr,  i2ptr,  mlptr, 
nd,  J) 


ilptr 


i2ptr 


ptr  pointer  to  the  inverse  covariance 
matrix  of  the  1st  class 

ptr  pointer  to  the  inverse  covariance 
matrix  of  the  2nd  class 


All  other  input  and  output  parameters  are  identical  to  the 
parameters  used  by  program  divergence. 

Program  Description: 

divergence$fast_divergence  is  the  same  as  divergence  except 
that  the  required  inverse  covariance  matrices  must  be  calculated 
by  the  calling  routine. 

For  a more  detailed  description  of  the  operation  of 
divergence$fast_divergence , see  the  program  listing  documenta- 
tion. 
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Utility  Function  Name:  dra$bndy 

Calling  Sequence:  Type  in  "dra$bndy" 

Input  File  Settings:  The  D8  portion  of  the  cluster  display 

file  must  be  set  if  the  current  display 
is  a two-space  plot. 

Output  File  Settings:  D13  and  D14  of  the  cluster  display  file 

are  set,  or  D14  of  the  histogram  dis- 
play file  is  set. 

Program  Description:  "dra$bndy"  allows  the  user  to  draw  up 

to  two  boundaries  or  thresholds  in  two- 
space  (a  maximum  of  five  line  segments/ 
boundary)  on  the  tektronix  after  a plot 
is  put  on  the  screen. 

Drawing  these  boundaries  in  two- space 
is  done  as  follows: 

The  routine  first  turns  on  the  cross- 
hair. The  user  may  move  the  crosshair 
to  any  point  on  the  screen  that  he 
wishes.  When  the  crosshair  is  in  the 
desired  location  and  he  wishes  that 
point  to  be  read,  he  enters  one  of 
three  characters  ["c,"  "e,"  or  "q"]. 

The  "c"  (continue)  means  that  the  user 
wishes  more  points  for  this  boundary 
to  be  read;  the  "e"  (end)  means  that 
this  is  the  end  of  the  first  boundary 
but  that  another  boundary  is  to  be 
drawn;  and  the  "q"  (quit)  means  that  no 
more  points  for  any  boundary  are  to  be 
read  (i.e.  this  is  the  end  of  all 
boundary- drawing) . 

The  routine  reads  the  first  character 
entered  along  with  the  tektronix  coor- 
dinates of  the  crosshair.  It  then  con- 
verts these  coordinates  to  projection 
plane  coordinates  and  stores  the  in- 
formation in  the  display  file.  The 
routine  then  turns  the  crosshair  back 
on  and  this  process  is  repeated.  After 
the  tektronix  coordinates  are  sent,  a 
line  segment  is  drawn  from  the  previous 
point  to  this  point.  — 

I 
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Flow  Chart: 


This  process  is  repeated  until  the  end 
of  the  boundary  is  drawn.  After  the 
last  line  segment  for  each  boundary  is 
drawn,  the  crosshair  (x-hair)  is 
turned  on  once  again;  the  routine  now 
expects  the  user  to  move  the  x-hair  to 
the  convex  side  of  the  boundary  just 
drawn.  Any  character  can  now  be  en- 
tered; the  point  occupied  by  this  char- 
acter is  read  as  being  on  the  convex 
side  of  the  boundary,  and  this  infor- 
mation is  stored  in  the  display  file. 

In  a one-space  plot,  the  x-hair  is  en- 
abled and  positioned  to  the  spot  of 
the  intended  threshold.  The  user  then 
enters  either  a "q"  or  an  "e."  If 
only  one  threshold  is  desired,  a "q" 
is  hit;  otherwise  the  crosshair  will 
be  turned  on  twice  and  two  thresholds 
must  be  drawn.  If  the  first  character 
is  "e,"  the  second  threshold  is  sent 
with  a "q."  No  convex  points  need  to 
be  entered.  The  tektronix  points  en- 
tered are  converted  to  threshold  val- 
ues and  stored  in  the  display  file. 

All  tektronix  coordiantes  for  both  one- 
space  and  two-space  displays  are  read 
by  the  internal  subroutine 
multeks$read  xhair. 


See  following  page 
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Internal  Subroutine  Name:  dra$scale 

Calling  Sequence:  call  dra$scale  (xl,  yl,  tecxmin, 

tecxmax,  tecymm,  tecymax,  ymin, 
ymax,  ymin,  ymax,  xscale,  yscale) 


Input  Parameters : 
xl 

yi 

tecxmin 

tecxmax 

tecymin 

tecymax 

xmin 

xmax 

ymin 

ymax 

Output  Parameters: 
xscale 
yscale 

Program  Description: 

Flow  Chart : 


tektronix  x coordinate  to  be  scaled 
[fixed  bin] 

tektronix  y coordinate  to  be  scaled 
[fixed  bin] 

minimum  tektronix  x coordinate 
[fixed  bin] 

maximum  tektronix  x coordinate 
[fixed  bin] 

minimum  tektronix  y coordinate 
[fixed  bin] 

maximum  tektronix  y coordinate 
[fixed  bin] 

minimum  projection  plane  x 
coordinate  [floating] 
maximum  projection  plane  x 
coordinate  [floating] 
minimum  projection  plane  y 
coordinate  [floating] 
maximum  projection  plane  y 
coordinate  [floating] 


scaled  x projection  plane  coordinate 
of  xl 

scaled  y projection  plane  coordinate 

yl 

"dra$scale"  scales  tektronix 
coordinates  to  projection  plane 
coordinates 

See  following  page 
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Internal  Subroutine  Name:  dra$square 

Calling  Sequence:  call  dra$square 


Program  Description: 


"dra$square"  draws  the  display  viewing 
area  on  the  tektronix  screen.  This 
display  area  has  the  following 
tektronix  coordinates. 


(120,  733) 


(844, 733) 


(120,  53) 


(844,  53) 


Flow  Chart : 


See  following  page 


draw$log 

Type”draw$log  [(treename)j^nodename)j  " 
Standard  optional  data  set  selection  parameters 


Utility  Function  Name 


Calling  Sequence 


Input  File  Settings 


A mooslogic  file  must  be  present  in  the  pro 
cess  directory 


draw$log  calls  draw$structure  which  displays 
the  structure  of  the  selected  logic  file  as  a 
tree. 


Flow  Chart 


draw$log 


Call 

draw$structur 


Return 


Utility  Function  Name: 


draw$prt 


Calling  Sequence: 
Input  Parameters; 
Input  File  Settings: 

Program  Description: 


Flow  Chart: 


Type  "draw$prt  j(treename)j  j^(nodename)j  " 
Standard  optional  data  set  selection  parameters 


A moos  logic  file  must  be  present  in  the 
process  directory. 


draw$prt  asks  the  user  to  select  a logic  node 
number  and  calls  draw$structure,  which  dis- 
plays the  selected  logic  file  structure  below 
the  selected  node  as  a tree. 


draw$pr t 

~T 


no  Selected 

vlogic  file  exipt? 


yes 


Ask  user  to  in- 
put a node 
1 number 


1 


Call 

dr  aw$  structure 


1 


Return 
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Internal  Subroutine  Name:  draw$structur e 


Calling  Sequence: 

Input  Parameters: 

Iptr 

m 

Program  Description: 


Flow  Chart: 


call  draw$structure  (lptr,  m) 


Prt  pointer  to  a mooslogic  file, 
fixed  (35)  logic  node  number. 

draw$structure  displays  a given  logic  tree 
below  the  selected  node.  Each  logic  node  is 
displayed  as  a rectangular  box  containing  the 
node  number.  If  there  is  no  structure  below 
a node,  a list  of  class  symbols  present  at 
that  node  appears  to  the  right  of  the  node. 

No  list  would  indicate  a reject  node.  If  there 
is  an  independent  reject  strategy  associated 
with  a node,  an  arrow  appears  above  it.  If 
the  entire  structure  is  too  large  to  fit  on  the 
screen,  a message  is  printed  and  lines  are 
drawn  indicating  where  the  missing  structure 
is  located. 

draw$structure  calls  draw$work  to  determine 
most  of  the  information  about  logic  tree  struc- 
ture. The  routine  returns  no  error  codes, 
but  prints  a message  if  a node  is  selected 
which  does  not  exist. 

See  following  page. 
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Internal  Subroutine  Name:  draw$work 


. I 
i i 


Calling  Sequence: 

Input  Parameters: 

lptr 

m 

l 

Output  Parameters: 

nd 

nn 

lln 

cm 

cc 

lie 

live 

l 

Program  Description: 
Flow  Chart: 


call  draw$work  (lptr,  m,  nd,  nn,  lln,  cm, 
cc,  11c,  live,  1) 


ptr  point  to  mooslogic  file, 

fixed  (35)  selected  logic  node  number. 

fixed  (35)  cutoff  level:  no  information  will 

be  returned  about  logic  nodes  below  this 

level. 


(150)  fixed  (35)  array  containing  lowest 
nodes  in  logic  tree  structure, 
fixed  (35)  number  of  lowest  nodes, 
fixed  (35)  array  containing  the  level  of  each 
lowest  node  (first  node  is  at  level  1). 

(60)  fixed  (35)  array  containing  all  inter- 
mediate nodes. 

fixed  (35)  number  of  intermediate  nodes. 

(60)  fixed  (35)  array  containing  the  levels  of 
all  intermediate  nodes. 

(50)  fixed  (35)  array  containing  the  number 
of  nodes  on  each  level. 

fixed  (35)  cut-off  level  or  lowest  level  found 
- whichever  is  higher  in  the  tree  structure. 

draw$work  retrieves  the  desired  structural 
information  (listed  in  the  "Output  Parameters" 
section)  from  the  node  part  of  the  structure 
part  of  the  mooslogic  file  and  also  from  the 
headers  of  specific  logic  blocks. 

See  following  page. 
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MOOS  Function  Name: 


dscrmeas 


i 


i 


, 


MOOS  Function  Number:  27 


Calling  Sequence: 
Input  Parameters: 
Output  File  Settings: 


Program  Description: 


Flow  Chart: 


Type  in  "dscrmeas  f(treename)  |(nodename)1  " 

1 -1  J 

Standard  optional  data  set  selection  parameters. 

The  display  file  is  set  up  according  to  the 
"rank  order"  display  file  format  which  is 
described  in  detail  in  the  description  of  rnk. 

dscrmeas  first  retrieves  mean  and  variance 
values  of  the  selected  data  set  from  the  tree- 
name  file.  The  discriminant  measure  for 
differentiating  classes  on  a pairwise  basis 
(class  i from  class  j ) is  then  calculated 
and  stored. 

The  measure  for  discriminating  class  i from 
all  other  classes  for  each  measurement  is 
then  computed  and  stored. 

Finally,  the  measure  for  distinguishing  all 
classes  with  each  measurement  is  computed 
and  stored.  The  routine  exits  by  calling 
rnk$oall  to  display  overall  results. 

See  following  page. 


MOOS  Function  Name: 


dsubstrc 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 


21 

Type  in  "dsubstrc  |(treename)  (nodename)  " 

The  standard  optional  data  set  selection 
parameters 


Output  File  Settings:  "sysdata"  and  (treename)  file  reflect  the 

deletion  of  lowest  nodes  under  (nodename) 
and  the  new  status  of  (nodename)  as  a lowest 
node.  Efata  class  files  are  deleted  for  all 
lowest  nodes  under  (nodename),  and  a data 
class  file  is  created  for  (nodename)  in  which 
all  of  the  vectors  from  the  deleted  data  class 
files  are  stored. 


Program  Description:  dsubstrc  calls  Inodes  to  determine  the  lowest 

nodes  under  (nodename),  then  calls  tfs  and 
dsubstrc$int  to  reduce  the  treename  file.  A 
data  class  file  is  created  for  (nodename),  and 
the  vectors  are  inserted  into  this  file  from 
each  lowest  node  data  class  file  before  the 
file  is  deleted.  Sysdata  is  then  adjusted  to 
reflect  the  new  tree  structure. 


Flow  Chart: 


See  following  page. 


Internal  Subroutine  Name: 


dsubstrc$int 


Calling  Sequence: 

Input  Parameters: 

tptr 

index 

Output  File  Settings: 
Program  Description: 


call  dsubstrc$int  (tptr,  index) 


pointer  to  tree  name  file. 

relative  position  of  the  node  to  be  deleted 

in  the  tree  name  file 

The  tree  name  file  reflects  the  deletion  of  a 
node  from  tree  name  file. 

The  routine  decrements  the  number  of 
classes  by  1 and  overwrites  the  node  infor- 
mation referenced  by  index  with  the  informa- 
tion of  the  last  node  in  the  file. 

If  the  number  of  lowest  nodes  is  not  zero, 
the  variable  portion  of  the  file  is  searched 
for  the  deleted  node  name.  If  it  is  found,  it 
is  deleted  and  the  number  of  lowest  nodes  is 
decreased  by  1 . 


Flow  Chart: 


See  following  page. 


Programmer  Aid  Name 


Calling  Sequence 


Output  File 


Program  Description: 


Flow  Chart : 


dump 

Type  in  "dump" 
dump_f ile 

The  program  first  creates  a 
dump _f ile  in  the  user's  login 
directory,  then  inserts  sysdata 
information,  unmasking  the  first 
five  lines  to  obtain  the  current 
tree  name  and  tree  index,  the 
current  class  name,  the  last  node 
index,  the  current  option  ana 
sense  switch  settings . "dump" 
then  unmasks  the  forest  and  school 
portions.  Next,  the  routine 
unmasks  the  first  line  of  each 
treename  file,  listing  all  the 
lowest  nodes  as  registered  below 
line  26,  and  in  addition  deter- 
mining the  last  index  for  the 
tree  name  and  those  data  class 
files  for  dumping  purposes . 

Finally  "Inodes"  is  called  for 
each  tree,  and  a count  and  listing 
of  each  tree's  lowest  nodes  and 
total  nodes  is  generated. 

See  following  page 
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MOOS  Function  Name: 


dvectors 


Input  Parameters : 

Output  File  Settings: 

Dataclass  File  - 
(nodename) 

Treename  File 


Sysdata 


Program  Description; 


40 

Type  in  "dvectors  [(treename)] 

[ (nodename) ]" 

Standard  optional  data  set  selection 
parameters 


The  associated  vector(s)  are  deleted 
and  D1  is  decremented  to  reflect  this 
deletion . 

All  entries  above  the  nodename  in  the 
datatree  are  modified  to  show  the 
changes  in  means  and  covariance 
matrices  as  a result  of  the  deletion. 

CM2  for  each  node  involved  is 
decremented  appropriately. 

S5  and/or  F5  is  modified  for  each  node 
above  nodename  in  the  data  tree  to 
reflect  the  deletion. 

"dvectors"  deletes  vectors  from  a data 
class  file.  The  program  first  asks 
the  user  if  ne  wants  to  delete  all 
vectors,  a range  of  vectors,  or  1 
vector.  (1)  If  all,  internal  sub- 
routine "deletnod$d"  is  called  to  delete 
the  node.  (2)  If  a range  of  vectors, 
the  program  asks  for  the  initial  and 
last  vector  id  number  (inclusive)  to  be 
deleted.  The  program  then  calls 
internal  subroutine  "dvectors$dv"  to 
delete  each  vector  in  the  range. 

(3)  If  one  vector  is  specified,  the 
program  asks  for  the  vector  id  number 
and  calls  routine  "dvectors$dv"  to 
delete  the  vector.  (In  the  latter  two 
cases,  if  during  the  process  of  deletion 
the  user  has  specified  to  delete  the 
only  remaining  vector  for  the  class , 
the  user  is  informed  as  such  and  is 
asked  whether  he  still  wants  to  delete 
it.  If  yes,  subroutine  "deletnod$d"  is 
called  and  the  entire  node  is  deleted. 

If  no,  the  program  returns  and  all 
vectors  up  to  that  point  are  deleted.) 


■i 


4-1  ">2 


min»Mifc 


(d_range) 


Call  dvectors$c 
for  each  vector 
in  range 


Print  number 
of  vectors 
deleted 


Return 


(d_point) 


Get  vector 
number 
(vecno) 


Call  dvectors$dv 
to  delete  vector 
vecno 


Return 


Internal  Subroutine  Name:  dvectors$cvmean 


Calling  Sequence: 

Input  Parameters : 
treeptr 


IX 


vdata 


Output  File  Settings: 


Program  Description: 


call  dvectors$cvmean  (treeptr, 
ix,  vdata) 


a ptr  to  the  top  of  the  associated 
treename  file.  This  is  the  file 
where  modification  of  means  and 
covariance  matrix  will  take  place. 
Cptr] 

a relative  index  from  "treeptr"  to 
the  CM1  entry  of  the  associated  node 
to  be  modified  [fixed  bin  (35)] 
an  ndim  dimensional  array  which 
contains  the  vector,  which  will  cause 
the  modifications,  [float] 

The  associated  treename  file  is 
modified  to  show  the  result  of 
removing  the  vectors. 

"dvectors$cvmean"  modifies  the  mean 
and  covariance  matrix  for  a given 
node  to  reflect  the  deletion  of  a 
vector  from  a node. 


Let  jii 

<f(j, 

N 

N' 


Computation  is  done  as  follows: 

= i**1  component  of  the  mean  before  modification 

= i^h  component  of  the  mean  after  modification 

= (i,j)*^  component  of  the  covariance  matrix  before 
modification 

= (i,j)tln  component  of  the  covariance  matrix  after 
modification 

= number  of  vectors  before  modification 
= number  of  vectors  after  modification 
= i^  component  of  the  vector 


Internal  Subroutine  Name: 


Calling  Sequence: 

Input  Parameters : 
classptr 

ix 

Output  Parameter: 
vdata 

Output  File  Settings: 
dataclass  file 

Program  Description: 

Flow  Chart : 


d vec tors $ delete 

call  dvectors $delete  (classptr, 
ix,  vdata) 


a pointer  to  the  appropriate  data 
class  file  where  deletion  will 
occur  Cptrj 

a relative  index  from  "classptr" 
to  the  D3  entry  of  the  associated 
vector  to  be  deleted  [fixed  bin(35)] 


an  array  dimensioned  to  the 
dimensionality  of  the  data.  Upon 
leaving  the  routine,  "vdata"  will 
contain  each  component  of  the  vector 
that  was  deleted  [float] 


the  vector  deleted  is  replaced  by 
the  last  vector  in  the  data  class  file. 
D1  is  decremented  by  1. 

"dvectors$delete"  deletes  one  vector 
from  a data  class  file  by  replacing  it 
by  the  last  vector  in  the  data 
file. 


See  following  page 
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■ 


ptrs 


classptr 

treename 

classname 

vecno 

flag 


a set  of  pointers  dimensioned  to 
4 which  are  : 

ptrs(l)  = ptr  to  sysdata  file 
ptrs ( 2 ) = ptr  to  scratch  file 
ptrs(3)  = ptr  to  display  file 
ptrs (4)  = ptr  to  tree  name  file 

ptr  to  data  class  file 

associated  tree  name 

associated  class  name 

the  vector  number  to  be  deleted 

a fixed  binary  (1)  number,  which  if 
"1)  implies  communication  with  the 
user  will  take  place  during  deletion 
if  the  last  vector  of  a data  class 
takes  place.  If  "0"  no  communication 
occurs . 


Output  Parameters: 
vdata 

flag 

Output  File  Settings 
treename  file 


an  array  dimensioned  to  50  which  will 
contain  the  vector  data  of  the  vector 
being  deleted. 

set  to  1 if  the  desired  vector  was 
deleted.  0 if  not. 

The  vector  is  deleted  from  the  data 
class  file.  D1  is  also  decremented 
by  1 . 

All  entries  including  and  above  class 
name  in  the  data  tree  are  modified  to 
show  the  change  in  means  and  co- 
variance  matrix  as  a result  of  the 
deletion.  CM2  for  each  node  involved 
is  decremented  by  1. 


4-180 


svsdata 


S5  or  F5  is  decremented  by  1 for  each 
node  above  class  name  in  the  data  tree. 


Program  Description:  "dvectors$dv"  deletes  one  vector  from 

a data  class.  If  the  vector  to  be  de- 
leted is  the  last  one,  the  user  is 
asked  (if  flag  = 1)  if  he  still  wants 
to  delete  it.  If  yes,  "dvectors$delete 
is  called.  Otherwise,  the  program  is 
terminated. 

Flow  Chart : See  following  page 
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Internal  Subroutine  Name: 


eigenvalues 


call  eigen_values  (a,nn,u. iv,e) 


(5050)  float  array  containing  the 
"upper  triangle"  of  the  symmetric 
matrix  whose  eigenvalues  are  to  be 
computed. 

fixed  (35)  order  of  the  matrix  in ’h" 
fixed  (35)  0 if  only  eigenvalues 
are  to  be  computed. 

1 if  both  the  eigenvalues 
and  eigenvectors  are 
to  be  computed. 


(100)  float  array  containing  the 
eigenvalues  of  the  matrix  in  "a" 
(100,100)  float  array  of  eigenvectors 
of  the  matrix  in  "a" 


eigenvalues  generates  the  eigen- 
values and  eigenvectors  of  a 
symmetric  matrix  by  an  interative 
technique  known  as  Jacobi's  method. 
The  routine  is  a direct  transla- 
tion of  the  G.E.  625/635  series 
mathematical  subroutine  eigenj. 

A detailed  flowchart  may  be  found 
in  the  write-up  on  the  previously 
mentioned  subroutine  eigenj „ 


I 
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Internal  Subroutine  Name: 


eigenp 


Flow  Chart: 

1 


Call  eigenp  (treename,  nodename,  ndim, 
e,  v,  so,  f) 


char  (8)  name  of  data  tree  . 

char  (4)  name  of  data  node. 

fixed  (35)  dimensionality  of  eigenvalues 

and  eigenvectors. 

(100)  float  sorted  eigenvalues. 

(100,  100)  float  unsorted  eigenvectors 
(1st  index  refers  to  elements  of  eigen- 
vectors, 2nd  index  refers  to  specific 
eigen vecto  rs) . 

(100)  fixed  (35)  array  containing  sort 
order  of  eigenvalues. 

fixed  (35)  if  f is  set  to  1,  only  eigen- 
values will  be  printed;  if  2,  both  eigen- 
values and  eigenvectors  are  printed. 

eigenp  formats  the  input  eigenvectors  and 
eigenvalues  and  loads  them  in  an  output 
file  named  "ep_file"  located  in  the  users 
login  directory.  This  file  is  then  "dprinted" 
and  deleted. 

See  following  page. 


eigenp 


Load  eigen- 
vectors into 


dprint  and 
delete  ep_file 


Return 


MOOS  Function  Name: 


eigentrn 


MOOS  Function  Number: 


Calling  Sequence: 
Input  Parameters: 


Program  Description: 


Flow  Chart: 


128 


Type  "eigentrn  (treename)  " 


standard  optional  data  set  selection 
parameters 


eigentrn  first  computes  the 
eigenvalues  of  the  selected  data  set 
and  presents  a list  of  eigenvalues  to 
to  the  user.  The  user  is  then  asked 
to  select  a cutoff  or  threshold 
eigenvalue.  A new  tree  is  created 
which  consists  of  the  original  tree 
transformed  by  the  eigenvectors 
which  correspond  to  the  eigenvalues 
above  the  threshold 

See  following  page. 
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MOOS  Function  Name: 


eigv$sa2 


MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


201 

Type  in  "eigv$sa2  f(treename)  (nodename)  " 

Standard  optional  data  set  selection  parameters 

eigv$sa2  calls  eigv$eigen  to  project  the 
selected  data  set  on  any  two  eigenvectors 
of  the  data  sat. 


MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


eigv$sal 

215 

Type  in  "eigv$sal  j(treename)  jnodename)  " 

! i 

Standard  optional  data  set  selection  parameters 

eigv$sal  calls  eigv$eigenl  to  project  the 
selected  data  set  on  any  eigenvector  of  the 
data  set. 


eigv$ld2 


MOOS  Function  Name 


MOOS  Function  Number 


Type  in  "eigv$ld2  [(treename)  (nodename) 


Calling  Sequence 


Standard  optional  data  set  selection  parameters 


eigv$ld2  calls  eigv$eigen  to  project  the 
selected  data  set  on  any  two  eigenvectors 
of  the  data  set.  Logic  may  be  created 
from  the  resulting  display. 


1 


c 

C 

i 


MOOS  Function  Name: 
MOOS  Function  Number; 
Calling  Sequence: 

Input  Parameters: 


eigv$ldl 

85 

I ype  in  "eigv$ldl  (treename)  (nodename)  " 

i 

Standard  optional  data  set  selection  parameters 


Program  Description:  eigv$ldl  calls  eigv$eigenl  to  project  the 

selected  data  set  on  any  eigenvector  of 
the  data  set.  Logic  may  be  created  from 
the  resulting  display. 


Internal  Subroutine  Name;  eigv$eigen 

eigv$eigen 1 


Calling  Sequence: 


call  eigv$eigen  (ptrf,  x,  trnam,  nod) 
call  eigv$eigenl  (ptrf,  x,  trnam,  nod) 


Input  Parameters: 
ptrf 


x 

tr-iam 

nod 


(5)  ptr 


ptrf(l)  - 
ptrf(2)  - 
ptrf (3)  - 
ptrf(4)  - 
ptrf(  5)  - 


sysdata 
scratch 
display 
treename 
moos  logic 


fixed  (35)  x should  be  set  to  1 for  logic 
design,  0 for  structure  analysis, 
char  (8)  tree  name  of  selected  data  set. 
char  (4)  node  name  of  selected  data  set. 


Output  File  Settings:  Entry  eigen  sets  up  display  for  a two  space 

plot  by  calling  ss$display,  Entry  eigenl 
sets  up  cs data  for  a one-space  plot  by  calling 
ss$displayl.  Both  routines  store  eigenvalues 
and  vectors  in  a process  directory  file  named 
eigen  file. 


Program  Description:  eigen  and  eigenl  call 

eigenvectors  and  eigenvalues  for  the  selected 
data  set.  These  values  are  then  stored  in 
the  users  p rocess  directory  in  a file  called 
eigen^file.  The  program  then  calls  ss$display 
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I 


Flow  Chart : 


(or  ss$displayl  for  one-space)  to  initialize 
the  display  file  (or  csdata  for  one-space) . 
The  user  is  given  the  option  of  having 
eigenvalues  and/or  vectors  printed.  The 
routines  exit  by  calling  eigv$eigen 
sequence  (or  eigv$eigen_  sequencel  For  one- 
space)  . These  subroutines  present  an 
ordered  list  of  eigenvalues  from  which  the 
user  must  choose  1 or  2,  and  call  the 
appropriate  display  routine  for  one  or  two- 
space  . 


See  following  page. 


4 


eigv$eigen, 

eigv$eigenl 


com 


Ask  user  if  printout  of 
eigenvalues  and/or 
vectors  is  desired 


Call  eigenp  to  print 
eigenvalues  and/or 
vectors 


Printout 

requested? 


Call  ss$display 

(or  ss$display]) 


Call  eigv$eigen  sequence 
(or  eigv$eigen  sequencel) 


Return 


Internal  Subroutine  Name. 


Calling  Sequence: 


Program  Description: 


eigv$eigen  sequence 
eigv$eigen  sequencel 

call  eigv$eigen_sequence 
call  eigv$eigen_sequencel 

eigen^sequence  and  eigen  sequencel  allow 
the  user  to  project  the  selected  data  set  on 
various  eigenvectors  without  recalculating 
eigenvalues  and  vectors.  The  programs 
display  an  ordered  list  of  eigenvalues  taken 
from  the  eigen  file  and  ask  the  user  to 
select  whichever  one(s)  he  wants.  The 
eigenvector^ ) are  then  loaded  into  the  dis- 
play file  (or  csdata)  and  the  appropriate 
display  routine  called. 


Flow  Chart: 


See  following  page. 


Utility  Function  Name: 
Calling  Sequence: 

Input  Parameter: 
option 


symbol  1-symbol  N 


Output  File  Settings: 


Program  Description: 


elimclas 

call  elimclas  (option  [symbol  1] 
[symbol  2]... [symbol  N]) 


indicates  what  initial  display  value 
all  present  classes  are  to  have, either 
all  classes  are  displayed  or  no  class 
are  displayed.  The  parameter  is 
either  "on"  or  "off". 

a list  of  class  symbols  indicating 
which  classes  are  to  be  displayed  or 
not  displayed. 

The  four-word  block  for  each  class  of 
the  "display"  file  is  modified  to 
indicate  whether  each  class  is  or  is 
not  currently  displayed. 

The  system  subroutine  "cu_$arg_ptr"  is 
used  in  determining  the  parameters.  If 
the  first  is  neither  "on"nor  "off",  an 
error  message  is  printed  and  execution 
terminated.  The  passed  class  symbols 
are  checked  against  the  class  name  in 
the  "display"  file  and  an  error  message 
is  printed  if  the  parameters  are  not 
valid . 


If  the  first  parameter  is  "on",  none  of 
the  classes  are  set  for  plotting  and 
the  classes  in  the  parameter  list  are 
"turned  on"  and  displayed.  Otherwise, 
all  the  classes  are  set  for  plotting  and 
the  classes  in  the  parameter  list  are 
"turned  off"  and  not  displayed, 
elimclas  exits  by  calling  "clusscat." 


Flow  Chart: 


See  following  page 
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Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters: 
logicptr 

nodenum 

index 

ndim 

Program  Description: 


ellipse 

call  ellipse  (logicptr,  nodenum, 
index,  ndim) 


pointer  to  the  MOOS  logic  file 
(ptr) 

current  logic  node  number  (fixed 
(35)) 

index  to  logic  for  this  node 
(fixed  (35)) 

data  dimensionality  (fixed  (35)) 

ellipse  generates  FORTRAN  code 
for  a logic  node  using  closed 
decision  logic  with  the  hyper- 
ellipsoid option 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation  of 
this  subroutine. 
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Programmer  Aid  Name: 
Programmer  Aid  Call: 
Input  Parameter: 
Program  Description: 


fastdump 

Type  in  "fastdump  (file)" 

file  or  segment  to  be  dumped 

fastdump  asks  the  user  where  the  file 
is  located  (working,  login  or  process 
directory).  When  the  file  is  found, 
the  user  is  asked  to  specify  either 
the  line  printer  or  the  terminal  as 
the  device  on  which  to  print  the  out- 
put. Then  the  user  inputs  the  first 
and  last  words  of  the  section  to  be 
output.  The  value  of  eacn  word  is 
represented  as  an  integer,  a floating 
point  number,  a bit  string,  an  octal 
number,  a character  string  (with 
blanks  representing  unprintable  char- 
acters), and  an  exponential  number. 
The  user  may  output  more  lines  or  may 
exit  from  the  program,  depending  upon 
his  answer  to  the  question  as  to 
whether  he  wants  to  dump  more. 


Flow  Chart: 


See  following  page. 


MOOS  Function  Name: 


features 


MOOS  Function  Number:  143 

Calling  Sequence:  Type  in  "features  ((treename)) 

( (classname)  ) 

Program  Description: 

features  is  a measurement  evaluation  program  which  utilizes 
the  divergence  measure  as  a criterion  for  determining  the 
relative  value  of  each  feature  of  a set  of  features. 

For  a more  detailed  description  of  the  operation  of  features, 
see  the  program  listing  documentation. 


Utility  Function  Name: 


features_abs 

Calling  Sequence:  Type  in  "features_abs" 

Program  Description: 

features_abs  creates  a segment  "f_abs_x . absin"  (where  x is 
a four-digit  random  number)  in  the  user's  home  directory.  In 
this  segment  features_abs  places  the  various  commands  and 
answers  to  queries  necessary  to  run  program  features.  The 
dialogue  of  features_abs  is  designed  to  mimic  the  dialogue  of 
program  features.  The  output  produced  is  identical  to  that 
which  would  be  produced  on-line  by  program  features. 

For  a more  detailed  description  of  the  operation  of 
features_abs , see  the  program  listing  documentation. 


j 
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Internal  Subroutine  Name: 


fileinput 


Calling  Sequence: 
Input  Parameter: 
treename 
Input  File  Setting: 


Output  File  Settings: 


Program  Description: 


call  fileinput  (treename) 


an  eight-character  treename. 

The  calling  routine  must  create  the  file 
"filedata"  in  the  process  directory  prior 
to  the  call. 

"sysdata"  reflects  the  addition  of  a new  tree 
in  the  system,  a (treename)  file  is  created, 
and  appropriate  values  are  inserted.  Data- 
class  files  are  created  for  each  node  and  the 
appropriate  vectors  are  stored  in  each. 

fileinput  creates  the  tree  (treename)  from 
the  calling  program  supplied  file  "filedata" 
in  the  process  directory.  The  means  and 
covariances  are  calculated  as  the  vectors 
are  stored  in  the  dataclass  files.  The 
routine  exits  after  displaying  "no  tree  input" 
if  "filedata"  is  not  found. 


Flow  Chart: 


See  following  page. 


fileinput 

(nametree) 


start 


initiate 
f iledata 


filedata  format 


1 

2 

3 

4 
• 

• 

1 + 2*nclas 

2 + 2*nclas 

3 + 2*nclas 


number  of  dimensions  (ndim) 


number  of  classes  (nclas) 


class  name  (1) 


number  of  vectors  in  class  (1) 


class  name  (nclas) 


number  of  vectors  in  class  (nclas) 


vectors  for  class  (1) 


vectors  for  class  (2) 


vectors  for  class  (nclas) 


MOOS  Function  Name: 


fi  sher 


MOOS  Function  Number:  65 


Calling  Sequence: 
Input  Parameters: 


Type  in  "fisher  [(treename)  l|(nodename)  " 

The  standard  optional  data  set  selection 
parameters 


Output  File  Settings:  treename,  nodename  mooslogic  file:  a fisher 

logic  block  is  added,  and  ncls  + 2 nodes  are 
added  to  the  node  part  of  the  structure  part. 

Program  Description:  The  routine  first  sets  up  the  [ncls  x (ncls  -1)' 

* 2 pairwise  logic  block  headers  (LPR3  - 
LPR10,  LPR6  = 1).  It  then  inserts  the  fisher 
direction  vector,  orthogonal  vector  and  the 
five  thresholds  for  each  pairwise  block, 
fisher  then  calls  sln$gn  for  each  class  (and 
reject)  to  set  up  ncls  + 1 lowest  nodes,  and 
completes  the  fisher  logic  block  header 
(LPR1,  LPR2).  fisher  returns  after  a call 
to  pevpw  for  partial  evaluation.  See  the 
logit,  block  for  pairwise  in  Section  3.1 

Flow  Chart:  See  following  page. 
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fisher 

[(treename)J 

[(nodenameJJ 


ut$ckparam 


ftnfile 


Input  number 
of  thresholds 


Set  up  pairwise 
headers 


— ) 

1 

Ca 

dg$ 

6— 

l>  1 

dd 

, 1 

f ishpair 


Internal  Subroutine  Name 


Calling  Sequence: 

Input  Parameters: 
logicptr 
pairptr 

reject 

Program  Description: 


call  fishpair  (logicptr,  pairptr, 
reject) 


pointer  to  MOOS  logic  file  (ptr) 

pointer  to  logic  for  this  pair 
(ptr) 

reject  logic  node  number  (fixed 
(35)) 


fishpair  is  the  subroutine  in 
the  "fortlogc"  option  which 
generates  FORTRAN  code  for  a 
pair  of  classes  that  uses  fisher 
logic 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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MOOS  Function  Name  : 


forteval 


MOOS  Function  Number.  95 

Calling  Sequence: 

From  command  level:  Type  in  "forteval  ((treename)) 

( (classname) ) " 

From  program  level:  call  forteval  (treename,  classname) 


treename : 


char  (8)  treename  of  the  data  set 
to  be  evaluated 


classname : 


char  (4)  classname  of  the  data  set 
to  be  evaluated 


Sense  switch  8 should  be  set  to  indicate  a call  from 
program  level,  and  CSS7  of  sysdata  should  contain  the  name 
of  the  subroutine  to  be  evaluated. 


Output  File  Settings:  The  display  file  is  set  up  in 

confusion  matrix  format 


Program  Description: 

forteval  tests  a selected  data  set  against  a subroutine 
generated  by  fortlogo,  or  any  subroutine  with  the  same  parameter 
list  as  a subroutine  generated  by  fortlogc.  Each  vector  in  the 
selected  data  set  is  passed  to  the  FORTRAN  subroutine  and  the 
classification  results  are  stored  in  the  display  file.  The 
routine  ends  by  calling  conmatsm  to  display  the  confusion 
matrix. 

For  a more  detailed  description  of  the  operation  of 
forteval,  see  the  program  listing  documentation . 


IP 


m 


Utility  Function  Name: 
Calling  Sequence: 

Input  Parameters: 

Output  File  Settings: 

Program  Description: 


fortlogc 

Type  in  "fortlogc  ((treename)) 

( (classname) )" 

Standard  optional  data  set  selection 
parameters 

A FORTRAN  subroutine  is  created 
in  the  user's  login  directory 


fortlogc  generates  a FORTRAN  subroutine  which  can  classify 
data  vectors  according  to  the  logic  strategy  of  a specific 
MOOS  logic  tree.  fortlogc  calls  logic_program  to  generate  the 
source  code,  and  then  calls  the  compiler  if  the  user  requested 
a listing  of  the  program  or  an  evaluation.  If  the  user 
requested  an  evaluation,  forteval  is  called  to  perform  the 
evaluation. 


For  a more  detailed  description  of  the  operation  of 
fortlogc,  see  the  program  listing  documentation. 
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MOOS  Function  Name; 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Description: 


MOOS  Function  Name; 
MOOS  Function  Number: 
Calling  Sequence: 

Input  Parameters: 
Program  Descriptior 


Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameter s : 
ptrf 


fshp$sa2 


203 

Type  in  "fshp$sa2  ^(treename)  ’ j(nodename)"  " 

Standard  optional  data  set  selection  parameters 

fshp$sa2  calls  fshp$fish  pair  which  projects 
the  selected  data  set  on  two  fisher  directions. 
The  fisher  directions  are  calculated  for  two 
user  selected  pairs  of  lowest  nodes. 


fshp$ld2 

71 

Type  in  "fshp$ld2  j^treename)  ^(nodename)  " 

Standard  optional  data  set  selection  parameters 

fshp$ld2  calls  fshp$fish  pair  which  projects 
the  selected  data  set  on  two  fisher  directions. 
The  fisher  directions  are  calculated  for  two 
user  selected  pairs  of  lowest  nodes.  Logic 
may  be  created  from  the  resulting  display. 

fshp$fish  pair 

call  fshp$fish_pair  (ptrf,  x) 


(5)  ptr 


ptrf(l) 

ptrf(2) 

ptrf(3) 

ptrf(4) 

ptrf(5) 


sysdata 

scratch 

display 

treename 

mooslogic 


fixed  (35)  x must  be  set  to  1 for  logic  design, 
0 for  structure  analysis. 
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Output  File  Settings: 
Program  Description: 


Flot  Chart: 


fshp$fish_pair  sets  up  display  for  a two- 
space  plot  by  calling  ss$display. 

Pa*r  presents  a list  of  lowest  node  names 

from  the  selected  data  set  and  asks  the  user 
to  choose  two  pairs  of  node  names.  Fisher 
directions  for  each  of  these  pairs  are  then 
calculated  by  separate  calls  to  dg$dcrmsu 
and  dcrim.  The  routine  exits  by  calling  the 
appropriate  display  routines. 

See  following  page. 


' 
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Internal  Subroutine  Name: 


ftnfile 


Calling  Sequence: 

Input  Parameters: 

trnam 

cnam 

nptr 

temp 

Output  Parameters: 
t£tr 

Program  Description: 


Flow  Chart: 


call  ftnfile  (trnam,  cnam,  nptr,  temp,  tptr) 


char  (8)  treename  of  data  set. 
char  (4)  nodename  of  data  set 
ptr  pointer  to  a file  containing  the  number 
of  nodes  to  be  placed  in  the  new  "treename" 
file  followed  by  the  names  of  these  nodes, 
fixed  (35)  the  current  logic  node  number. 


ptr  pointer  to  new  "tree 

ftnfile  creates  a pseudo  treename  file  based 
on  the  data  vectors  which  are  associated  with 
a particular  temporary  symbol.  The  name  of 
the  new  file  is  chosen  as  follows: 
trnam  | Jcnam  jjtemp.  uses  mncvotr 

to  calculate  new  means  and  covariances. 


ftnfile 


F or  each  dal 
mncvotr  to 
mean  vector 
matrices 

.a  class  call 
:alculate  new 
s & covariance 

. I 

Use  mmeana 
new  senior  n 
the  "fake  tre 

cv  to  form  a 
ode  entry  for 
ename  file" 

i 

i 

R eturn 


Hyj.uuj.HL! 


Internal  Subroutine  Name : 
Calling  Sequence: 

Input  Parameters: 

treename 

nodename 

Output  Parameters: 
index 

array 

Program  Description: 

Flow  Chart : 


getclass 

call  getclass  (treename,  nodename, 
index,  array) 


associated  tree  name 
associated  class  name 


relative  index  from  beginning  of 
sysdata  to  nodename  entry.  If 
0<  index  £144  then  entry  is  in  forest. 
If  144 < index,  then  entry  is  in 
school.  If  not  found,  index  = -1. 

an  array  of  information  whose  data 
is  the  same  as  array  of  subroutine 
"ut$getnode . " 

"getclass",  given  a treename  and 
nodename,  searches  through  the 
associated  tree  in  sysdata  until  it 
finds  nodename  and  returns  the  node 
information  in  array.  Subroutine 
"ut$getnode"  is  used. 


See  following  page 


Empty  the  stack 
by  setting  the 
stack  index  to  1 


Search  through 
forest  portion  of 
sysdata  for 
treename 


Output  error 
message 


it  found? 


nodename 


Return 


current  = 
firstclass 
(treename) 


Internal  Subroutine  Name:  getclassl 


Calling  Sequence: 

Input  Parameters: 

treename 

nodename 

sysptr 

Output  Parameters: 
index 


array 


Program  Description: 


Flow  Chart: 


call  getclassl  (treename,  nodename, 
index,  array,  sysptr) 


associated  tree  name 
associated  class  name 
pointer  to  sysdata 


relative  index  from  beginning  of 
sysdata  to  nodename  entry.  If 
CK  index  < 144  , then  entry  is  in  for- 
est. If  144^,  index,  then  entry  is 
in  school.  If  not  found,  index  = -1. 

ah  array  of  information  whose  data 
are  the  same  as  array  of  subroutine 
"ut$getnode . " 

"getclassl,"  given  a treename  and 
nodename,  searches  through  the  asso- 
ciated tree  in  sysdata  until  it  finds 
nodename;  it  then  returns  the  node 
information  in  array.  Subroutine 
"ut$getnode"  is  used. 

Since  a pointer  to  sysdata  is  passed 
as  a parameter  to  getclassl,  no  call 
is  made  to  hcs _$initiate  to  determine 
this  pointer,  as  is  done  in  getclass. 

See  getclass. 


1 
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Internal  Subroutine  Name: 
Calling  Sequence: 


getlabel 
call  getlabel 


fixed  (35)  external  static 
variable  containing  the  current 
label 


getlabel  generates  the  next 
sequential  label  for  a FORTRAN 
program 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 


Internal  Subroutine  Name:  get par am 


Calling  Sequence: 
Input  Parameters: 
£tr 

data_type 


Output  Parameters : 
ptr 

data  type 


Output  File  Setting : 

sysdata 

word 

6 

7 

6+nparms 

Program  Description: 


call  getparam  (ptr,  data_type) 


"ptr"  is  a ptr  to  the  parameter  list. 
This  can  be  obtained  by:  "call 
cu$arg_list_ptr ( ptr ) " 

The  type  of  data  that  is  being 
inputed  as  parameters : 

if  "1",  data  is  fixed  bin  (35) 
if  "2",  data  is  float 
if  "3" , data  is  character  string  of 
maximum  length  8 


"ptr"  will  point  to  word  6 of 
sysdata  which  is  the  word  where  the 
number  of  parameters  is  placed. 

"aata_type"  is  set  to  -1  if  any 
errors  occur. 

Possible  errors  that  could  occur  are: 

1.  A character  is  encountered  when 

trying  to  input  data  of  data_type  1 
or  2 (character  other  than  for 

for  type  2) , 

2.  More  than  8 characters  in  a 
parameter  of  data_type  = 3 , 

3.  Data_type  i 1,  2,  or  3. 


contents 

nparms  (number  of  parameters) 
parameter ( 1 ) 

parameter  (nparms) 

"getparam"  gets  the  input  parameters 
of  a program  and  places  them  in  words 
6 through  (6+no.  of  params , ) in  3 
possible  different  formats. 
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If  data_type  = 1 each  parameter  is 
converted  to  fixed  bin  (35)  format 
before  placing  in  sysdata 

If  data_type  = 2 each  parameter  is 
converted  to  floating  format  before 
placing  in  sysdata. 

If  data  type  = 3,  each  parameter  is 
placed  in  sysdata  in  char(8)  format. 

If  less  than  8 characters  are  inputed 
as  a parameter,  the  characters  are 
left  justified  in  each  double  word 
in  sysdata  and  pulled  to  the  rights 
with  blanks. 

If  any  errors  occur,  a data_type  of  -1 
is  returned. 

Flow  Chart:  Next  page. 
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More 

parameters 


[nsert  nargs 
in  word  6 of 
sysdata 


Return 


Insert  param- 
eter in  sysdata 
as  fixed  bin 
(35) 


Increment  ptr 
in  sysdata 


MOOS  Function  Name:  gndv$ldl 

MOOS  Function  Number : 86 


Calling  Sequence: 
Input  Parameters : 

Program  Description: 


Type  in  "gndv$ldl  ((treename)) 

( (classname) ) " 

Standard  optional  data  set  selection 
parameters 


gndv$ldl  calls  gndv$gcndv  to  project  the  selected  data  set 
on  any  generalized  discriminant  vector  of  the  data  set  Loeic 
may  be  created  from  the  resulting  display. 


f 
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MOOS  Function  Name: 
MOOS  Function  Number : 
Calling  Sequence: 


gndv$ld2 

72 

Type  in  "gndv$ld2  ((treename)) 
( (classname) )" 


Input  Parameters:  Standard  optional  data  set  selection 

parameters 

Program  Description: 

gndv$ld2  calls  gndv$gendv  to  project  the  selected  data  set 
on  any  two  generalized  discriminant  vectors  of  the  data  set. 
Logic  may  be  created  from  the  resulting  display. 


gndv$sal 

216 


MOOS  Function  Name: 

MOOS  Function  Number : 

Calling  Sequence:  Type  in  "gndv$sal ( (treename) ) 

( (classname) ) '* 

Input — Parameters : Standard  optional  data  set  selection 

parameters 

Program  Description: 

gndv$sal  calls  gndv$gendv  to  project  the  selected  data  set 
on  any  generalized  discriminant  vector  of  the  data  set. 


i 

I 


! 


■ 


I 

! 
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MOOS  Function  Name: 

MOOS  Function  Number: 

Calling  Sequence: 

Input  Parameters : 

Program  Description: 

gndv$sa2  calls  gndv$gendv  to  project  the  selected  data  set 
on  any  two  generalized  discriminant  vectors  of  the  data  set. 


gndv$sa2 

204 

Type  in  "gndv$sa2  ((treename)) 

( (classname) ) " 

Standard  optional  data  set  selection 
parameters 


Calling  Sequence: 


Input  Parameters: 


ptrf 


treename 


call  gndv$gendv  (ptrf,  treename, 
classname,  fl,  f2) 


(5)  ptr  ptrf(l)  - sysdata 
ptrf(2)  - scratch 
ptrf (3)  - display 
ptrf (4)  - treename 
ptrf(5)  - mooslogic 

char  (8)  tree  name  of  the  selected 
data  set 


classname 


char  (4)  class  name  of  the  selected 
data  set 


fl 


f2 


Output  File  Settings: 


Program  Description: 


fixed  (35)  Set  to  zero  for 
structure  analysis,  1 for  logic 
design 

fixed  (35)  Set  to  1 for  one-space, 
2 for  two- space 

If  f2  is  set  to  1,  csdata  is  set  up 
for  a one- space  plot  by  calling 
ss$displayl.  If  f2  is  set  to  2, 
display  is  set  up  for  a two-space 
plot  by  calling  ss$display. 
Eigenvalues  and  generalized 
discriminant  vectors  are  stored  in 
t.he  process  directory  file  eigen_ 
file. 


gndv$gendv  calculates  the  generalized  discriminant  vectors 
of  the  selected  data  set,  orthonormalizes  these  vectors, 
and  stores  them  in  the  process  directory  file  eigen_file. 

The  program  then  calls  ss$display  (or  ss$displayl)  to  initialize 
the  display  file  (or  the  csdata  file  for  one-space).  The  routine 
exits  by  calling  gndv$gendv_sequence . 


For  a more  detailed  description  of  the  operation  of 
gndv$gendv , see  the  program  listing  documentation. 
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Internal  Subroutine  Name:  gndv$gendv_sequence 

Calling  Sequence:  call  gndv$gendv_sequence  (p) 


Input  Parameters: 


Program  Description: 


fixed  (35)  p is  set  to  1 for  one- 
space,  2 for  two-space 


gndv$gendv_sequence  allows  the  user  to  project  the  selected 
data  set  on  the  generalized  discriminant  vectors  without 
recalculating  these  vectors.  The  program  displays  an  ordered 
list  of  eigenvalues  from  the  eigen_file  and  asks  the  user  to 
select  the  one(s)  he  wants.  The  generalized  discriminant 
vectors  corresponding  to  the  chosen  eigenvalues  are  then  loaded 
into  the  display  file  (or  csdata  for  one-space)  and  the  appro- 
priate display  routine  is  called. 

For  a more  detailed  description  of  the  operation  of 
gndv$gendv_sequence , see  the  program  listing  documentation. 


Interr al  Subroutine  Name 


gpboolean 


if 

i 


I 


Calling  Sequence: 


Input  Parameters: 

critiptr 

numdim 

numbound 


if  ile 


call  gpboolean  (critptr,  numdim, 
numbound,  lnb , if ile) 


pointer  to  logic  block 

number  of  dimensions 

value  contained  in  third  quarter  of 

first  word  in  logic  block 

output  file  name 


Output  Parameter : lnb-array(3)  of  logic  nodes 

Program  Description:  - gpboolean  unmasks  the  second  word  of 

logic  block,  extracting  the  logic 
nodes  for  the  true  and  false 
decisions.  Next  (numbound)  boolean 
statements  are  output. 

Flow  Chart:  See  next  page 


1 


gpboolean 


Unmask 


Output 
(numbound) 
boolean  state 
ments 


Return 


Internal  Subroutine 
Calling  Sequence: 

Input  Parameters : 

critptr 

numdim 

numbound 

if  ile 

Output  Parameter: 
Program  Description 


Flow  Chart : 


u in  ' "i  ■ — 


Name : gpdiscrim 

call  gpdiscrim  (critptr,  numdim, 
numbound,  lnb , ifile) 


pointer  to  logic  block 

number  of  dimensions 

value  contained  in  third  quarter  of 

first  word  in  logic  block 

output  file  name 

lnb-array(3)  of  logic  nodes 

gpdiscrim  unmasks  the  second  word  of 
the  logic  block,  extracting  the  logic 
nodes  for  the  convex  sides  of  the 
(numbound)  boundaries,  and  for  the 
excess  region.  Next,  the  discrimi- 
nant coefficient  of  each  line 
segment  and  the  threshold  for  the 
line  segment  are  output  for  each 
boundary. 


gpdiscrim 
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Internal  Subroutine  Name: 


gplogic 


» 


i 


Calling  Sequence: 


Input  Parameters : 

f ileptr 
optf lie 
numdim 
dex 
nodes 


if  ile 


Program  Description: 


Flow  Chart : 


call  gplogic  (fileptr,  optfile, 
numdim,  dex,  nodes,  ifile) 


pointer  to  moos  logic  file 
pointer  to  option_file 
number  of  dimensions 
index  to  logic  block 

array  (72)  of  4- character  node  names 
at  node  ifile  - output  file  name 
output  file  name 

gplogic  unmasks  the  first  word  in  a 
group  logic  block,  formats  the  output 
of  the  logic  type  and  the  option 
creating  the  logic,  calls  the 
appropriate  subroutine  (gpdiscriin, 
gponespace,  gpboolean)  to  output 
the  appropriate  values , and  then 
points  out  the  logic  node  to  go  to, 
depending  on  the  decision  made  at 
the  node,  before  returning. 


See  following  page 


4-234 


Internal  Subroutine  Name:  gponespace 


Calling  Sequence: 


call  gponespace ( critptr , numdim, 
numbound,  lnb,  ifile) 


Input  Parameters: 

critptr 

numdim 

numbound 


ifile 


pointer  to  logic  block 

number  of  dimensions 

value  contained  in  third  quarter  of 

first  word  in  logic  block 

output  file  name 


Output  Parameter: 


lnb-array(3)  of  logic  nodes 


Program  Description:  gponespace  unmasks  the  second  word  of 

the  logic  block,  extracting  the 
logic  nodes  for  the  left  most, 
right  most , and  middle  of  the 
(numbound)  thresholds.  Next  the 
discriminant  coefficients  of  the 
projection  vector,  and  the  (numbound) 
thresholds  are  output. 


Flow  Chart: 


gponespace 


Start 


Unmask  second; 
word 


Output 

information 


1 


Return 


grouprogram 

call  grouprogram  (k,  logicptr) 


11  111  ™ 


Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters: 
logicptr 
nodeptr 

Program  Description: 


grouprogram$gboolean 

call  grouprogram$gboolean 
(logicptr,  nodeptr) 


pointer  to  MOOS  logic  file  (ptr) 

pointer  to  boolean  logic  node 
(ptr) 

grouprogram$gboolean  is  the 
subroutine  in  the  "fortlogc" 
option  of  MOOS  that  generates 
FORTRAN  code  for  a boolean  group 
logic  node 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Utility  Function  Name, 
Calling  Sequence: 
Program  Description : 


Flow  Chart 


hello_moos 

Type  in  "hello_moos" 

"hello_moos"  is  normally  the  first 
routine  a user  uses  when  he  wants  to 
begin  using  moos.  It  gives  the 
user  introductory  remarks  about  moos 
and  instructs  him  on  how  to  use  moos. 
It  also  initializes  all  files  for 
him,  sets  the  current  option 
number  to  255  (option  number  for 
"anything"),  calls  "option"  puts 
him  in  the  right  directory  and 
returns . 

next  page 


Utility  Function  Name:  hgprint 

Calling  Sequence:  type  in  "hgprint" 

Output  File  Settings:  hgprint  creates  two  files:  hgtempfile" 

^ process  directory  which 
mirrors  the  current  one-space  display 
and  "histout"  in  the  user's  home 
directory,  which  is  similar  to 
hgtempfile" . 

Program  Description:  hgprint  outputs  the  present  one- 

space  "micro"  display  to  the  printer. 
It  first  checks  if  the  current  dis- 
play is  a "micro"  view  and  that  the 
number  of  bins  is  less  than  120. 

If  not,  an  error  message  is  printed, 
hgprint  then  constructs  "hgtempfile" 
which  is  number  of  bins  x 30  words 
long.  Each  consecutive  nbin  words 
represents  a horizontal  line  of  the 
current  display  and  each  of  the 
nbin  words  is  either  a "b", 

"+",  or  the  display  symbol  of  the 
class.  Each  column  is  headed  by  the 
appropriate  class  symbol  and  is 
filled  with  asterisks  unless  another 
class  distribution  falls  in  thar  same 
bin.  In  that  case,  a "+"  is  printed 
as  a header  if  both  classes  have 
equal  distribution,  or  the  different 
class  symbols  are  printed  at  the 
appropriate  positions  in  the  column. 
Upon  completion  of  "hgtempfile",  the 
MULTICS  system  routine  "f ile_output" 
is  called  with  parameter  "histout". 
This  creates  the  file  "histout" 
which  will  contain  all  the  inform- 
ation that  is  printed.  A column 
spacing  factor  is  determined  by  the 
number  of  bins.  If  nbin<20,  then 
3 print  positions  are  skipped  between 
columns.  If  nbin  r”  20  and  nbin— 30, 
then  the  skip  factor  is  2.  If  bin 
• 30  and  -*=  50  then  the  skip  factor 
is  1,  else  the  output  is  consecutive 
print  positions. 


> 

; 


i 
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"hgtempfile"  is  then  printed  a line, 
nbin  words,  at  a time.  Other  output 
information  is  the  current  moos 
function,  data  set,  and  a bin-by-bin 
list  of  the  probabilities/count  of 
each  class. 


Flow  Chart 


See  following  page 


hgprint 


Start 


Create 

"hgtempfile' 


Build  up 
"hgtempfile' 


Create  "histout"! 
& print  out 
"hgtempfile1 


"U 


± 


1 

iPrint  bin-by-bin! 


I list  of  class 
counts /prob- 
abilities 


Output 

error  message 


( 


Return 


Call 

option 
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User  Utility  Function:  histgram 


Calling  Sequence: 


type  in  "histgram  [classlist]" 


I 

■ 


i 


* 


Input  Parameter  Settings : 

classlist  This  is  an  optional  list  of  class 

symbols  separated  by  blanks.  If  no 
classlist  is  supplied,  all  classes  of 
the  current  data  set  will  be  displayed. 

Program  Description:  histgram  is  the  display  program  used 

with  probability  of  confusion.  It 
first  checks  that  the  system  display 
code  is  2,  representing  probability 
of  confusion.  The  user  then  enters 
the  desired  measurement  number,  and 
the  parameters,  if  any,  are  determined. 
"Display"  file  contents  such  as 
number  of  dimensions,  tree  character, 
number  of  classes,  etc.  is  then  copied 
into  the  "csdata"  file. 

The  index  to  a class’  data  for  a given 
dimension  is  then  determined  and  stored 
in  the  class'  four-word  section  of 
display . 

This  index  is  an  offset  into  the  class' 
data  file,  as  calculated  by  probconf, 
where  each  file  is  denoted  by 
"pc"  I;  treecharacter  " classname. 

The  program  exits  by  calling  pcos. 

Flow  Chart:  See  following  page 


A 


* 


Utility  Function  Name: 

hrdcpy 

Calling  Sequence: 

Type  in 

"hrdcpy" 

Input  File  Setting: 

none 

Output  File  Setting: 

none 

Program  Description: 

"hrdcpy" 

produces  on  the  high  speed 

printer  a copy  of  any  desired  rank  order 
display  for  either  "dscrmeas"  or 
"probconf" . "hrdcpy"  is  called  by  the 
user  after  the  desired  rank  order 
display  has  been  called  and  the  results 
displayed  on  the  terminal  screen.  The 
routine  first  initiates  the  display 
file  and  checks  the  first  nine  bits  of 
the  first  word  in  the  display  file  to 
see  if  the  display  is  a rank  order 
display.  If  not,  an  error  message  is 
printed  out  and  control  returns  to  the 
user.  If  so,  then  the  sortorder  is 
read  to  determine  if  the  display  is 
for  "dscrmeas"  or  "probconf".  Next, 
the  routine  checks  to  see  the  type  of 
rank  order  display  called,  ie. , 
"rnk$oall" , "rnk$bcls",  "rnk$bycp" , or 
a rank  measurement  display. 

If  the  display  is  a "rnk$oall" , 
"rnk$bcls" , or  "rnk$bycp"  the  routine 
creates  in  the  user's  login 
directory  a temporary  file  called 
hrdcpy_file.  Then  the  information 
corresponding  to  the  particular  rank 
order  file  display  is  obtained  from 
the  display  file  and  placed  in 
hrdcpy_file  in  the  correct  rank  order 
and  format.  Then  the  routine  calls 
"output_f ile"  which  prints  the  con- 
tents of  hrdcpy_file  onto  the  high 
speed  printer  and  then  deletes 
hrdcopy_file  from  the  user's 

login  directory.  Finally  the 
routine  calls  "option"  which  returns 
control  back  to  the  user. 

If  the  display  is  a rank  measurement 
display  the  displaya  file  is  initiated. 
Then  the  routine  checks  the  displaya 
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.....  ... 








file  to  see  whether  the  display  is  a 
"rnk$mbc"  or  a "rnk$mbcp".  In  either 
case,  hrdcpy_file  is  created  in 
the  user's  login  directory. 

Then  the  information  corresponding  to 
the  particular  rank  measurement  display 
is  obtained  from  the  displaya  file 
and  placed  in  hrdcpy_file  in  the  correct 
rank  order  and  format.  "output_f ile" 
is  called  to  print  the  contents  of 
hrdcpy_file  onto  the  high  speed  printer 
and  then  delete  hrdcpy_file.  Finally 
"option"  is  called  and  control  returns 
to  the  user. 


Flow  Chart 


Initiate  display 
file 


Set  code  b equal  to  fii 
9 bits  of  first  word  of 
display  file  & code  a 
'equal  to  remaining  27 


Obtain  from  display  file 
sortorder,  # of  classes  1 

& dimensions  & set 
pointers  j 


Return 


bet  program 
name  for 
Discrim. 
Measure 


|Set  program 
frame  for  Prob 
iof  Confusion 


Initiate 

Sysdata 

File 


(rnk$oall  display) 


Initiate  hrdcpy_ 
file  in  user' s 
login  directory 


Change  to  user't 
login 
directory 


Place  header 
information  in 
hrdcpy_file 


Obtain  from  display  file 
measurement  #,  value, 
best  class  & best  class 


pair  in  rax 


Place  above  infc . 
in  order  into 
hrdcpy_file 


Call 

"output_file" 


Change  back  to 
"MOOS"  work 
directory 


Return 
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c 


(rank  measurement  display) 


information  in 
hrdcpy_file 


Initiate  hrdcpy_ 
file  in  user  logi 
work  directory 


Change  to  user 
login  work 
directory 


Place  header 
information  in 
hrdcpy_file 


Obtain  from  displaya 
file  classes  and  corres 
ponding  values  in  rank 
order 

~~ZZ.CZ  I~ 

Place  above  in- 
formation in 
order  in  hrdcpy_. 
file 


Call 

"output_file" 


Change  to 
"MOOS"  work 
directory 


Return 
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Obtain  from  displaya 
file  classpairs  and  thei 
corresponding  values 
in  rank  order 


Place  above 
information  in 
order  in 


Call 

'output_file 


Change  to 
"MOOS"  work 
directory 


Return 


MM 


E 


(rnk$bycp) 


[Obtain 
i classpair 


Initiate  hrdcpy_ 
file  in  user  login 
work  directory 


Change  to  user 
login  work 
directory 


[Place  header  in-) 
formation  in 
hrdcpy_file 


I 


Obtain  from  display  file 
measurement  #'s  & 

icorres.  values  in  rank 
[order 


Place  above 
, info  in  order  in 
j hrdcpy_file 

i 

- i 

Call 

"oiitput_file" 

L-  " _J 


1 

Change  to 

"MOOS"  work 

directory 


Utility  Function  Name: 
Calling  Sequence: 
Program  Description: 

Flow  Chart: 


hrdcpycm 

Type  in  "hrdcpycm" 

hrdcpycm  generates  the  four  pointers  if  the 
display  file  code  indicates  a confusion 
matrix,  sets  the  second  word  of  the  display 
file  to  2,  and  then  calls  conmatsm. 


hrdcpycm 


t- 

Set  pointers  to 
"sysdata", 
"display" 


Utility  Function  Name: 


index 


Calling  Sequence: 
Input  Parameters: 
[parm] 

Program  Description: 


type  in  "index  [parm]" 


This  optional  parameter  is  either 
"count"  or  "id",  this  determines  the 
type  of  information  presented  on 
console.  In  the  absence  of  a parameter, 
index  defaults  to  "count"  information. 

Initially,  "index"  examines  the  system 
display  code  to  determine  if  the 
current  display  is  a one  or  a two- 
space  plot.  If  the  user  desires  a two- 
space  index,  then  word  D6  of  the 
"display"  file  is  checked  to  determine 
if  there  exist  a cluster  or  a scatter 
plot.  In  the  case  of  a cluster  plot, 
the  crosshairs  are  used  to  indicate 
which  grid  is  to  be  examined. 

If  the  information  is  to  be  placed  on 
the  printer,  the  MULTICS  system  program, 
"file  output"  is  used  to  create  a "P" 
file  in  the  current  working  directory. 
The  tektronix  points  returned  from 
multeks$read_xhair  are  converted  to  data 
values  and  these  are  converted  into 
a relative  position.  The  "relative 
position"  area  of  the  "display"  file  is 
scanned  and  the  total  number  of  vectors 
present  in  that  grid  for  each  class  is 
is  printed  to  the  correct  destination. 

If  the  current  display  is  a scatter 
plot,  "multeks$read_xhair " is  called 
twice  to  outline  an  area.  The  class 
and  vector  id  of  each  vector  in  this 
area  are  printed. 

In  the  case  of  a histogram,  the  cross- 
hairs are  used  to  specify  a particular 
"bin"  and  the  probability  or  count  of 
the  number  of  vectors  of  each  class  in 
that  "bin"  is  printed. 

The  routine  exits  by  calling  the  approp- 
riate display  routine,  either  "npcos" 
or  "clusscat". 


Use  crosshairs 
to  build  "box" 
around  vector 
symbol  to  be 
indexed 


| Convert  Tek~ 
tronix  coords  toj 
projection 
coords. 


1 


Scan  "scratch1 
file  to  obtain 
vector (s)  within 
these  coords. 


I l ^ 

'Go  to  data  class 
(files  to  get 
vectors  id  #'s 

(Present  info, 
call  clusscat 


Return 


Use  crosshairs 
to  specify  a 
particular  "bin"! 


Convert  Tektroni 
coordinates  to  a 
bin  number 


Scan  "microbuff71 
file  to  obtain 
vectors  within  1 
this  bin 


Present 

information 


Return 


Internal  Subroutine  Name: 


Calling  Sequence: 
Input  Parameters : 


11 


logicptr 

Program  Description: 


ind_rej  ect 

call  ind_reject  (ii,  logicptr) 


logic  node  number  with  indepen- 
dent reject  strategy  (fixed  (35)) 


pointer  to  MOOS  logic  file  (ptr) 


ind_reject  is  the  subroutine 
under  the  "fortlogc"  option 
of  MOOS  that  generates  FORTRAN 
code  for  a logic  node  which  has 
an  independent  reject  strategy 


See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 


Input  Parameter  Settings : 


classlist  This  is  an  optional  list  of  class 

symbols,  separated  by  blanks, 
representing  classes  to  be  intensified. 

Output  File  Settings:  The  "intensify"  flag  is  set  or  cleared 

in  the  "microbuff"  file  reflecting 
the  classes  that  are  affected. 

"intensfy"  intensifies  the  desired 
classes  by  outlining  their  distri- 
butions with  a solid  curve.  The 
screen  is  erased  when  there  is  an 
existing  intensified  class  and  not  all 
classes  are  to  be  intensified, 
otherwise  the  outline  is  drawn  on  the 
current  display.  The  outline  is 
drawn  using  the  "binned"  information 
existing  in  "csdata"  file. 

Flow  Chart : See  following  page 

1 


intensfy 
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Internal  Subroutine  Name: 


invertmat 


Calling  Sequence: 

Input  Parameters: 

ptrwl 

ptric 

mnsn 


Output  Parameter: 
w 

Program  Description: 


Flow  Chart: 


call  invertmat  (ptrwl,  ptric,  w,  mnsn) 


pointer  to  square  matrix  to  be  inverted, 
pointer  to  ic  region 
number  of  dimensions 


(100,  100),  inverse  matrix 

The  ic  region  indicates  those  dimensions  to 
be  excluded  in  the  calculations.  The  routine 
checks  for  linear  dependent  rows,  compacts 
the  matrix  by  eliminating  these  rows,  cal- 
culates the  inverse  by  a pivotal  in  place 
method,  expands  the  inverse  by  inserting 
zeros  in  all  (i,j)  positions,  i,  j those 
dimensions  eliminated,  and  returns  the  in- 
verse in  w . 

See  following  page. 


Expand  j 
the  matrix 


T 


Assign 
(inverse  to  w 


Return 


Utility  Function  Name: 
Calling  Sequence: 


Input  File  Settings: 


Output  File  Settings: 


Program  Description: 

latclogc  allows  the  user  to  modify  a selected  logic  tree 
such  that  more  than  one  path  may  be  taken  to  arrive  at  a user- 
specified  logic  node  within  the  logic  tree. 

latclogc  is  divided  into  two  major  sections.  Section  I 
asks  the  user  to  enter  the  logic  nodes  to  be  connected  and 
checks  to  make  sure  that  the  connection  will  result  in  a valid 
logic  tree.  Section  II  carries  out  the  modification  to  the 
logic  tree  structure.  The  routine  ends  by  printing  a message 
which  states  whether  the  logic  modification  was  successful. 

For  a more  detailed  description  of  the  operation  of 
latclogc,  see  the  program  listing  documentation. 


latclogc 

8 

Type  in  "latclogc ( (treename) ) 

( (classname))" 

A logic  file  must  exist  for  the 
selected  data  set. 

The  low- order  bit  of  the  SN4  entry 
in  the  logic  file  for  the  "lattice 
logic  node"  is  set. 

The  logic  tree  structure  is 
modified  to  reflect  the  user- 
specified  changes. 
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MOOS  Function  Name: 
MOOS  Function  Number 


Calling  Sequence; 
Input  Parameters: 


Output  File  Settings: 


Program  Description: 


Flow  Chart: 


linglogc 

62 


Type  in  "linglogc  j(treename)^  (nodename)j" 
Standard  optional  data  set  selection  parameters 


linglogc  adds  a boolean  or  linguistic  logic 
node  to  the  moos  logic  file. 


linglogc  calls  internal  subroutine  sin  which 
selects  a logic  node  to  be  the  current  logic 
node.  The  user  is  then  asked  to  input  a 
b oolean  statement  for  partition  logic  and  the 
classes  which  this  logic  is  to  separate.  Two 
new  nodes  are  then  created  in  the  node  part 
of  the  structure  part  of  the  mooslogic  file 
and  a "boolean  logic  block"  is  created  to 
store  the  entered  statement.  The  maximum 
length  of  the  entered  statement  is  132  char- 
acters. The  program  calls  pevgl  to  perform 
a partial  evaluation  of  the  boolean  logic  and 
exits . 


See  following  page. 


1 
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Moos  Function  Name: 


Moos  Function  Number: 
Calling  Sequence : 

Input  Paramet e r s_: 

Output  File  Settings: 


Program  Description: 


Flow  Chart: 


lingpart 

198 

Type  in  "lingpart  [(treename)]  [(node- 
name) ]" 

Standard  optional  data  set  selection 
parameters 

The  data  class  file  for  nodename  is 
deleted  and  2 new  data  class  files  are 
created  for  the  true  and  false  side  of 
the  linguistic  partition. 

The  2 new  classes  are  added  to  the 
treename  file  to  reflect  the  partition. 

2 new  classes  are  added  to  sysdata  to 
reflect  the  tree  structure  after 
partitioning. 

"lingpart"  is  a structure  analysis 
routine  for  dividing  a class  into  2 
classes  through  the  use  of  a boundary. 
This  boundary  takes  the  form  of  a user- 
entered  boolean,  linguistic  statement. 
The  program  reads  the  entered  statement, 
places  it  in  a PL/ 1 source  statement  to 
do  the  partitioning,  calls  the  PL/ 1 
compiler  to  compile  the  new  program, 
and  then  calls  this  newly  compiled 
program  to  actually  do  the  partitioning. 

Next  page. 
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oau  "logen"  to  place 
entered  statement  in  a 
PLA  source  program  & 
compile  the  program 


Get  a nodename 
for  the  true^lk 
false  side  of  the 


boundary 


Have  user  enter 
the  boolean 
statement  (exp) 


^Have\ 
/all  vectors 
'been  eval? 


Evaluate  the  statement 
on  the  next  vector  in 
data  class  nodename, 
by  calling  "boologic" 


If  evaluation  of  the  vec- 
tor was  true,  place  it  in 
(the  true  node,  if  false, 
jslace  it  in  the  false  nod$ 


Create  2 new 
nodes  in  the 
tree  name  file  foi* 
true  & false  nodes 


Find  free  slots  in 
kysdata  for  the  2 ; 
nodes  it  set  all 

links  to  & from  i 
them  _ 


Delete  the 
old  lowest 
node 


Return 
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Internal  Subroutine  Name:  lingpart$slot 


\ 


i 

y 

I 

1 


Calling  Sequence : 
Input  Parameters: 
ptr 

Output  Parameters : 
j inx 

Program  Description: 


call  lingpart$siot  (ptr,  jinx) 


a pointer  to  the  sysdata  file 


a relative  index  from  the  beginning 
of  sysdata  to  the  next  free  slot  in 
the  school  entry  of  sysdata 

"lingpart$slot"  returns  the  relative 
index  (jinx)  in  sysdata  to  the  next 
free  slot  in  the  school  entry  of 
sysdata.  If  this  slot  is  beyond  the 
last  node  (css4  of  sysdata),  css4  is 
incremented  by  1. 


Flow  Chart: 


ling  part$  slot 


Start 


Locate  the  free 
slot  in 
sysdata 


)o\ 

fe  have  to  no 

go  beyond  curr< 


Increment 

css4 


Return 
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MOOS  Function  Name: 


MOOS  Function  Number: 


Calling  Sequence: 


Input  Parameters: 


Output  File  Settings; 


Type  in  "lingrjct  (treename)  (nodename)  " 

Standard  optional  data  set  selection  parameters 

lingrjct  modifies  node  entries  in  the  node  part 
of  the  structure  part  of  the  mooslogic  file  to 
indicate  that  independent  reject  strategies 
exist  and  also  creates  independent  reject 
strategy  logic  blocks. 


Program  Description: 


Flow  Chart: 


lingrjct  calls  draw$structure  to  display  the 
selected  logic  tree  and  asks  the  user  to  input 
a list  of  logic  nodes  to  which  he  wants  to  add 
independent  reject  strategies.  The  user  can 
have  one  strategy  created  which  will  operate 
on  several  nodes  or  specific  strategies  for 
each  node  selected.  An  independent  reject 
strategy  logic  block  is  created  for  each 
unique  independent  reject  strategy.  After 
each  boolean  statement  is  input,  the  user  is 
given  a chance  to  change  the  statement  - 
since  there  is  no  partial  evaluation  to  detect 
errors.  Independent  reject  logic  can  b 
added  at  any  time  to  any  logic  node,  but  can 
only  be  evaluated  by  ’Togicevl"  when  the 
logic  tree  is  complete. 

See  following  page. 
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Ask  user  to 
enter  boolean 
statements 


Display  each  statement  and 
allow  corrections  before 
creating  logic  blocks 


Ask  user  for 
list  of  nodes  to 
work  with 
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Utility  Function  Name:  list_cst 

Calling  Sequence:  type  in  "list_cst" 

Program  Description:  This  routine  lists  the  trees  and 

the  nodes  under  these  trees  present 
in  "trandata" , the  common  access 
directory. 

The  number  of  trees  is  determined 
and  becomes  the  control  index  for 
a "do- loop"  which  processes  through 
the  "seg__0_  trees"  segment  in 
"trandata"  and  lists  the  data  names 


Flow  Chart: 


list  cst 
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list  ust 


Utility  Function  Name: 

Calling  Sequence:  type  in  "list_ust" 

Program  Description:  This  routine  lists  the  data  trees  and 

nodes  under  these  trees  that  the  user 
has  placed  in  his  "saved  trees" 
directory  through  the  utility  function 
"save" . 

The  information  to  be  printed  is 
obtained  from  the  "seg_o_trees" 
segment  present  in  the  user's  directory 


Flow  Chart: 


list  ust 


■ obtain  pathname 
to  user's  "saved 
trees"  directory 


Tprint  informa- 
tion stored  in 
"seg_°_trees" 
segment 

‘ T~ 

Return 
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Utility  Function  Name: 
Calling  Sequence  : 

Input  Parameters: 

Function  Description: 


Flow  Chart: 


listlogc 

type  in  "listlogc  [ ( treename ) ] 

[ (nodename) ]" 

the  standard  optional  data  set 
selection  parameters 

listlogc  creates  the  output  file 
"listlog _f ile" ) and  unmasks  and  outputs 
the  following  information  contained  in 
the  treename,  nodename  mooslogic  file: 
the  data  set, the  number  of  dimensions, 
and  the  number  of  lowest  data  class 
nodes  . 

Next,  listlogc  builds  the  parallel 
arrays  In  and  lc,  which  pairs  each 
lowest  logic  node  with  the  data  class 
at  the  node. 

Then,  for  each  logic  node,  the  routine 
unmasks  and  outputs  the  logic  node  num- 
ber, the  type  of  logic,  the  superior 
node  and  number  of  nodes  below  the 
node,  and  the  classes  present  at  the 
node.  If  the  logic  node  type  is  1, 
apriori  probabilities  of  each  class 
are  output.  If  the  node  is  a lowest 
node,  the  reassociated  data  class 
name  and  the  reject  strategy  (if  any) 
are  output. 

listlogc  calls  the  appropriate  sub- 
routine (pwlogic  , gplogic,  cdblogic,  or 
nmvlogic)  to  output  the  specific 
information  for  each  node. 

Upon  completion,  the  output  file  is 
printed,  and  the  routine  returns. 

See  following  page 
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Lowesi 
node  ? 


Output  re- 
associated 
name 


Output  reject 
strategy 


pwlogic 


nmvlogic 


Internal  Subroutine  Name:  Inodes 


Calling  Sequence: 


Input  Parameters: 

treename 

nodename 


call  Inodes  (treename,  nodename,  low,  l, 
nod,  n) 


char  (8)  name  of  the  data  tree, 
char  (4)  name  of  the  data  node. 


Output  Parameters: 
low 

nod 

n 

Program  Description: 


Flow  Chart: 


(72)  char  (4)  array  containing  all  lowest 
nodes  under  selected  data  set. 
fixed  (35)  no.  of  lowest  nodes. 

(142)  char  (4)  array  containing  all  nodes, 
under  selected  data  set  (nod(l)  = nodename), 
fixed  (35)  no.  of  names  in  "nod"  array. 

Inodes  searches  the  "sysdata"  file  for  the 
desired  node  names  and  lowest  node  names, 
n is  set  to  -1  if  any  errors  are  found  in 
sysdata. 


Inode  s 


— . ^ 

Search  sysdata 
for  lowest  & 

intermediate 
■ nodes 

I 

I 

Return 
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Utility  Function  Name: 


log 


Calling  Sequence:  Type  in  "log$save  [(treenamejl  £(nodename)J  " 

Type  in  "log$rstr  [(treename)]  (Jnodename)]  " 
Type  in  "log$dlet  [(treename)]  jfnodename)]  " 
Type  in  "log$list" 

Input  Parameters:  The  standard  optional  data  set  selection 

pa  rameter  s 

Program  Description:  Log  consists  of  four  user  entry  points  which 

set  the  option  number  desired  and  a pointer 
to  the  parameter  list  (note  that  log$list  re- 
quires no  parameters).  The  routine  passes 
control  to  log$parg,  which  extracts  the 
parameters  and  calls  log  p. 


Entry 

Option  No. 

Function 

log$sa ve 

0 

save  referenced  logic  file 

log$rstr 

1 

restore  referenced  logic  file 

log$dlet 

2 

delete  referenced  saved  logic 
file 

log$list 

3 

list  all  saved  logic  files 

Flow  Chart:  See  following  page. 


4-283 


Option 

type=0 


Option 
type  = 1 


Return 


Internal  Subroutine: 


log$parg 


Calling  Sequence: 


Input  Parameters: 


*E. 

parptr 


call  log$parg  (tp,  parptr) 


option  desired. 

pointer  to  parameter  list. 


log$parg  calls  checkp  to  return  the  parameter 
list  if  the  option  type  is  not  2 (log$list),  and 
then  calls  log_p  if  no  errors  have  occurred. 


log$parg 


Return  ) 


Internal  Subroutine  Name: 


log_P 


Calling  Sequence:  call  l0g_p  (type,  parml,  parm2) 

Input  Parameters: 


type 


parml 
par  m2 


option  desired 

0 save  the  parml , parm2  logic  file. 

1 restore  the  parml,parm2  logic  file. 

2 list  all  saved  logic  files. 

3 delete  the  saved  parml,  parm2  logic  file, 
eight  character  tree  name. 

four  character  node  name. 


Program  Description: 


Flow  Chart: 


l°g_p  appends  the  sub-directory  "saved  trees 
to  the  user's  login  directory,  changes 
working  directory  to  "saved  trees'1,  creates 
the  file  "seg_o_logic"  if  it  does  not  already 
exist,  calls  the  appropriate  subroutine, 
changes  working  directory  back  to  the  origi- 
nal working  directory  and  returns. 

See  following  page. 
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iog_p 


1 

2 

3 

4 

5 

6 
7 

(SLl-l)*3+2 

(SLl-l)*3+3 

(SLl-l)*3+4 


SL1  SL1  - # of  saved  logic  files 

SL2(1)  SL2(i)  - 8-character  tree 

name  reference  for  saved 
SL2(1)  logic  file(i) 

SL3(1)  SL3(i)  - 4-character  node 

name  reference  for  saved 
SL2(2)  logic  file(i) 

SL2(2) 

SL3(2) 

SL2(SL1) 

SL2(SL1) 

SL2(SL1) 


Internal  Subroutine  Name: 
Calling  Sequence: 


Input  Parameters: 


dir_l 

ptrseg 

argl 


arg2 


Program  Description: 


Flow  Chart: 


log  p$delete 


call  log_p$delete  (dir_l,  ptrseg,  argl, 
arg2) 


user's  login  sub-directory  "saved  trees' 
pointer  to  "seg__o_logic"  file, 
eight  character  tree  name, 
four  character  node  name. 


This  routine  deletes  a previously  saved  logic 
file  and  deletes  the  reference  from  the 
seg_o_logic  file.  An  error  message  is 
printed  if  no  logic  file  under  this  reference 
is  found  in  "saved  trees". 


Internal  Subroutine  Name:  log  p$list 


Calling  Sequence:  call  log  p$liet  (ptrseg) 

Input  Parameter: 

ptrseg  - pointer  to  "seg  o logic  file. 

Program  Description:  This  routine  formats  and  outputs  to  the 

screen  the  number  and  references  of  saved 
logic  files  as  listed  in  "seg_o_logic". 

Flow  Chart: 


log_p$liat 

(ptrseg) 


> 

f 

F orma 
output 
format 

: and 
in-  J 

ion 

(_ 

Return 
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Internal  Subroutine  Name:  log  p$work 


Calling  Sequence: 


call  log  p$work  (blddir,  cypdir.  segptr, 
optype,  argl,  arg2) 


Input  Parameters: 


blddir 


cpydir 


segptr 


argl 

arg2 


directory  in  which  the  argl,  arg2  logic  file 
is  to  be  copied. 

directory  from  which  the  argl,  arg2  logic 

file  is  to  be  copied. 

pointer  to  the  "seg_o_logic"  file. 

option  desired: 

0 save  the  argl,  arg2  logic  file. 

1 restore  the  argl,  arg2  logic  file, 
eight  character  tree  name. 

four  character  node  name. 


Program  Description: 


This  routine  copies  the  requested  logic  file 
from  (cpydir)  into  (blddir).  Error  messages 
will  occur  if  the  desired  logic  file  is  not 
found  in  (cpydir)  or  if  the  segment  is  un- 
successfully copied  into  (blddir).  If  a logic 
file  already  exists  under  the  given  name, 
the  user  will  be  requested  to  supply  new 
reference  name.  If  the  option  desired  is  to 
save  a logic  file,  then  "seg_o_Logic"  is  up- 
dated upon  the  successful  copying  of  the  logic 
file. 


Flow  Chart: 


See  following  page. 
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b3E 


logen 

call  logen  (exp,  nodenum,  nexp) 


an  array  of  up  to  100  expressions 
(maximum  of  132  characters/expression) 

a parallel  array  with  exp  and  it 
contains  the  logic  node  number  for 
each  expression 

the  number  of  expressions  being  set 

"logen"  creates  a PL/1  source  program 
called  "boologic.pLl"  in  the  user's 
login  working  directory.  A number  of 
constant  or  standard  statements  are 
placed  at  the  beginning  of  this 
program  and  then  the  array  of  entered 
statements  is  placed  immediately 
afterward.  Upon  completion  of  this, 
the  PL/1  compiler  is  called  to 
compile  "boologic.pLl" 

Next  page 


Place  the  statements: 

"boologic:  pnc(ptr,  ndim,  boolval,  nutn); 
dcl(ptr,  aptr)  ptr; 
dcl(i,  ndim,  num)  fixed  bin  (35); 
del  boolval  bit  (1);  I 

del  m(100)  float;  | 

del  flot  float  based; 
aptr  = ptr 

do  i = 1 to  ndim;  ! 

m(i)  = (aptr-*.  flot);  j 

aptr  = addrel  (aptr,  1); 
end; " 

in  "boologic.  p LI". 


t 

Insert  all  "exp" 
expressions  into 
"boologic.  p LI" 

next 

I 


Place  the  state- 
ments: 

i "return;  end;" 
into 


"boologic.  p LI" 
next.  -L 


Compile 
; "boologic.  pLl" 
i by  calling  PL/1 
; compiler  to 
create  segment 
■ "boologic" 


Delete  segment 
"boologic.  pLl" 


Return 


I 


MOOS  Program  Name : 
MOOS  Program  Number : 
Calling  Sequence: 
Input  Parameters : 

Input  File  Settings: 


logicevl 

64 


Type" logicevl  [(treename)]  [(nodename)]" 

Standard  optional  data  set  selection 
parameters 

A mooslogic  file  must  exist  in  the  user's 
process  directory 


Output  File  Settings:  Two  temporary  buffers  called  logic_ 

’ counter  and  error_f  are  created  in  the 
user's  process  directory. 


Program  Description:  logicevl  first  asks  the  user  the  name  of 

the  data  set  on  which  logic  was  designed. 
If  this  data  set  was  not  of  the  same 
dimensionality  as  the  selected  data  set, 
a message  is  presented  and  the  routine 
exits.  A check  is  then  made  to  ensure 
that  the  logic  is  complete.  logicevl 
cannot  be  executed  on  incompleted  logic 
files.  If  there  are  boolean  logic  nodes 
in  the  logic  tree,  a PL/1  compilation  then 
takes  place.  Each  vector  in  the  selected 
data  set  is  tested  against  the  logic  and 
classified  or  rejected.  The  display 
file  is  set  up  in  the  conmatsm  display 
file  format  and  a call  is  made  to 
conmatsn  to  display  the  results  of  the 
evaluation. 


Flow  Chart : See  following  page 


logicevl 


Ask  user  to  input 
data  set  on  which 
logic  was  de- 
signed 


the  # dimen- 
sions in  selected  ‘ 
data  set  same  as  #dimen« 
sions  in  data  set  on  which' 
logic  was  de - 
^\signed? 


x yes 

Are 

there  any  boolean 
logic  nodes ? 


Compile  boolean 
logic  statements  yes 


Evaluate  vectors 
in  the  selected 
data  set 


Set  up  display 
file  in  conmatsm 
display  file 
format 


Return 


Internal  Subroutine  Name:  logicp 


Calling  Sequence: 

Input  Parameters: 
index 

lncls 

tncls 

ii 

sptr 

trnam 

nod 

Input  File  Settings: 


Program  Description: 


call  logicp  (index,  lncls,  tncls,  ii, 
sptr,  trnam,  nod) 


fixed  (35)  index  to  the  first  C 28 
entry  in  the  confusion  matrix  display 
file 

fixed  (35)  number  of  "assigned" 
class  names 

fixed  (35)  number  of  "true"  class 
names 


fixed  (35)  set  to  1 for  overall  logic 
evaluation,  3 for  partial  nearest  mean 
vector  evaluation;  any  other  value 
indicates  partial  pairwise  or  group 
logic  evaluation 


(5)  ptr 


sptr(l)  - sysdata 
sptr(2)  - scratch 
sptr(3)  - display 
sptr(4)  - treename 
sptr(5)  - mooslogic 


char (8)  tree  name  of  the  data  set 
being  evaluated 


char(4)  node  name  of  the  data  set 
being  evaluated 


The  display  file  must  be  set  up  accord- 
ing to  the  confusion  matrix  display 
file  format.  In  the  case  of  partial 
pairwise  evaluation,  some  information 
must  also  be  stored  in  the  scratch 
file . 


A temporary  file  called  error_f  must 
also  exist  as  well  as  certain  specific 
temporary  error*  files.  These  error 
files  are  described  in  detail  in 
section  3. 


Logicp  prints  the  detailed  error  list- 
ing which  the  user  may  select  after 
overall  evaluation,  partial  pairwise 
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evaluation,  or  partial  nearest  mean 
vector  evaluation.  It  retrieves  the 
necessary  information  from  the  error_f, 
pair_error  file,  nmv  error_file, 
box_error_file , dispTay,  scratch,  and 
raooslogic  files. 


L 

F 


Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters: 
path 

file 

logicptr 

Output  Parameters: 
error 

Program  Description: 


logicprogram 

call  logicprogram  (path,  file, 
logicptr,  error) 


path  name  to  directory  to  contain 
FORTRAN  program  (char(168)) 

name  of  program  to  be  created 
(char (14) ) 

pointer  to  the  MOOS  logic  file 
(ptr) 


error  code  (0  = no  errors,  1 = 
error)  (fixed) 

logicprogram  is  the  executive 
routine  in  the  "fortlogc"  option 
of  MOOS 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Internal  Subroutine  Name: 
Calling  Sequence: 

Frogram  Description: 


login 

call  login  (home  dir) 


The  user's  home  directory  is 
returned  in  the  parameter  "home 


dir" . 


Flow  Chart: 


login 


Start 


Call 


user  info$home- 
dir 


Return 
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lowprogram 

call  lowprogram  (i,  logicptr) 


lowest  logic  node  number  (fixed 
(35)) 

pointer  to  the  MOOS  logic  file 
(ptr) 

lowprogram  generates  FORTRAN 
code  for  a lowest  logic  node 
under  the  "fortlogc"  option  of 
MOOS 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Internal  Subroutine  Name:  macroview 

Calling  Sequence:  call  macroview  (name,  ptr,  max,  count) 

Input  File  Settings:  macroview  expects  the  "csdata"  file  to 

be  set  for  a macroview  display. 


w ! 

I 


Input  Parameter  Settings : 

the  four- character  class  name  to  be 
displayed 

pointer  to  "bin  area"  data  of  "csdata" 
of  class  to  be  displayed 
the  maximum  probability/count  of  all 
displayed  classes 

the  current  number  of  classes  dis- 
played on  console 

Program  Description:  macroview,  using  the  number  count  for 

horizontal  positioning,  draws  a base 
line  from  tektronix  point  (182, 

(count  - 1)*33  + 73)  to  tektronix 
point  (782,  (count  - 1)*33  + 73).  The 
data  are  always  displayed  over  a 600- 
point  width,  and  the  vertical  separa- 
tion of  classes  is  33  points. 

Each  bin  is  scaled  to  a maximum  of  27 
of  these  33  points.  This  scaling  is 
done  relative  to  all  classes  on  the 
screen,  i.e.  the  maximum  bin  height  of 
each  class  won't  necessarily  be  27 
points , but  the  maximum,  of  all  the  dis- 
played classes  will  be  27  points.  As 
a result  of  this  scaling  procedure,  if 
each  class  has  an  equal  number  of  vec- 
tors , the  area  under  each  histogram 
curve  will  be  the  same. 

macroview  is  called  by  npcos  or  pcos 
for  each  displayed  class. 

See  following  page. 


Flow  Chart: 
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Moos  Function  Name:  measxfrra 

Moos  Function  Number:  130 

Calling  Sequence:  Type  in  "measxfrm  [(treename)] 

" C (nodename) ]" 

Input  Parameters : Standard  optional  data  set  selection 

parameters 

Output  File  Settings:  A new  tree  is  created  in  sysdata 

A new  tree  name  file  is  created 

A new  set  of  data  class  files  is 
created 

Program  Description:  "measxfrm"  is  a means  of  transforming  a 

given  data  set  into  a new  data  set. 

This  transformation  takes  the  form  of 
linguistic  statements  which  are  a 
function  of  the  measurements  from  the 
original  data  set. 

e.g.  nm(l)  = om(l)  + om(2)  says  that 
measurement  1 of  the  new  data  set 
equals  the  sum  of  measurements  1 and  2 
of  the  old  data  set. 

"measxfrm"  takes  the  entered  statements 
places  them  into  a PL/.1  source  program, 
compiles  this  PL/.1  source  program,  and 
then  executes  the  newly  compiled 
routine  to  do  the  transformation. 

Flow  Chart:  Next  page 


measxfrm 


Start 

1 

7 

The  new  tree  is  a 
tree  of  lowest 
nodes,  therefore 
get  list  of  lowest 
nodes  for  old  tree 

Get  new 
tree  name 

4 

Get  dimension- 
1 ality  of  new 
tree 

1 

Find  a free  slot 
in  sysdata  for 
the  new  tree 


7 

Fill  in  senior 
node  of  new  tree 

...  . J 

7 

Create  & 
initialize  new 
treename  file 


Read  transfor- 
mation expres- 
sionsfmax  of  75 
expressions) 


1,1 " 


MOOS  Function  Name: 


MOOS  Function  Number: 


Calling  Sequence: 
Input  Parameters : 


Output  File  Settings 


Program  Description: 


Flow  Chart: 


mergmeas 

4 


Type  in  "mergmeas  (newtree)" 


standard  optional  data  set  selection 
parameter 


"sysdata"  reflects  the  addition  of  a 
new  tree  in  the  system.  "newtree" 
file  is  created,  and  appropriate 
values  are  inserted.  Data  class  files 
are  created  for  each  node , and  the 
appropriate  vectors  are  stored  in  each. 


mergmeas  is  a data  input  routine  used 
to  concatenate  the  measurements  of  two 
existing  trees  to  produce  a new  tree 
whose  structure  is  identical  but  whose 
dimensionality  is  equal  to  the  sum  of 
the  dimensionalities  of  the  two  origin- 
al trees,  mergmeas  checks  to  see  if 
the  number  and  names  of  the  lowest 
nodes  in  the  two  trees  are  the  same, 
if  the  numbers  of  vectors  in  each  cor- 
responding node  are  equal,  and  if  the 
dimensionality  of  the  new  tree  is  less 
than  100,  before  proceeding  to  combine 
measurements.  If  the  two  trees  are 
compatible,  a new  tree  name  file  and 
new  class  name  files  are  created,  and 
the  means  and  covariances  for  the  new 
tree  are  calculated.  The  program 
exits  by  calling  option. 


See  following  page. 


1 


mergmeas 
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Internal  Subroutine  Name 


Calling  Sequence: 
Input  File  Setting : 


Input  Parameter  Setting : 
type 


microview 


call  microview  (type) 

microview  expects  the  "csdata"  file 
and  the  "microbuff"  file  to  be  set 
for  "micro"  display 


type  type  determines  labelling 

0 indicates  probabilities 

1 indicates  counts 

Program  Description:  microview  is  called  once  and  produces 

' ‘ " the  one-space  "micro"  display. 

Initially,  microview  determines  the 
appropriate  horizontal  spacing.  If 
the  number  of  bins  (nbin)  is  less 
than  15,  then  the  display  is 
3 x nbin  print  positions  otherwise 
its  width  is  600  tektronix  points 
[wide , centered  about  the  middle  of 
the  screen].  The  maximum  height  is 
475  "tek."  points,  relative  to  the 
base  of  the  histogram,  which  is 
73  "tek."  points  from  the  bottom 
of  the  display  itself.  The  y-axis  is 
labelled  with  either  probabilities 
or  counts,  depending  on  the  value 
of  the  parameter. 

The  horizontal  positioning  is  determined  as  follows: 


xpos  = 182  + constant*12  + ( j-l)*B 

nbm 


where 


182  = offset,  in  "tek."  points,  from  left  boundary  of  the 

display  screen 

constant  = offset,  in  print  positions,  from  start  of  histo- 
gram, relative  to  182.  "constant"  is  a function 
of  nbin  where  constant  = 0 if  nbin  ^ 15,  else 
constant  = 50-(3*nbin) 

2 

j = a do-loop  index  from  do  j=l  to  nbin 
nbin  = number  of  bins 
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width  of  histogram  in  "tek."  points 
B = 600  if  constant  = 0,  else  B = nbin*36 


*75/  A 

< constant  A A 
i *12  A A B a 


! /\ 


A 


73 


The  y-axis  information  is  stored  in  word  D16  of  the  display 
file  and  is  used  in  determining  the  scaling  data.  The  routine 
exits  by  returning  to  the  calling  program. 


Flow  Chart : 


See  following  page 
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Internal  Subroutine  Name  : 


mmeanacv 


Calling  Sequence: 

Input  Parameters : 
treeptrl 
ixl 

treeptr2 

ix2 


otreeptr 


Output  Parameter : 

di.1.1 


Output  File  Setting: 


call  mmeanacv  (treeptrl,  ixl, 
treeptr2,  ix2,  otreeptr,  dim) 


ptr  to  the  top  of  first  tree  name  file 

a relative  index  from  treeptrl  to  the 
CM1  entry  of  the  associated  first  node 
to  take  place  in  the  merging 

ptr  to  the  top  of  the  second  tree  name 
file 

a relative  index  from  treeptr2  to 
the  CM1  entry  of  the  associated 
second  node  to  take  place  in  the 
merging 

is  an  absolute  pointer  to  the  CM1 
entry  of  a node  entry  in  a treename 
file.  This  pointer  will  point  to  the 
area  where  the  output  of  the  merging 
of  the  2 nodes  will  go. 


set  to  the  dimensionality  of  the  2 
nodes . 

If  dimensionality  of  the  2 nodes  are 
not  equal,  dim  = 0 

The  area  pointed  to  by  otreeptr  will 
obtain  the  result  of  the  merging. 

The  CM  entry  is  not  touched. 

CM2  = CM2  of  node  1 + CM2  of  node  2 
CM2  and  CM4  will  be  changed  to  reflect 
the  merging. 


Program  Description:  mmeanacv  merges  the  means  and  covariance 

matrices  for  2 nodes;  computation  is 
done  as  follows: 

Let  A,B  be  the  two  nodes  to  combine 


" Ai>-  Bi 


ABi 


= the  i^  entry  of  the  means  for 
nodes  A and  B 

= the  i^h  entry  of  the  mean  for  the 
combination  of  nodes  A and  B 


NA,  Ng,  NAB  = the  number  of  vectors  for  node  A,  node 

B,  node  (A+B) 

(f  Ai,,(f  B.  CT  ABi,  = the  (i,j)  entry  of  the  covariance 

^ matrix  for  node  A,  node  F , node  (A+B) 


Then 


nAB  = nA  + Nb 


^ABi  = CNA^/Ai  + Ng^  Bi] 

NA  + "Ng 

•^ABij  = NAC^Aij  + Ai*AAj)+NB(^Bij  + ABi* ^g  j > ->ABi*> 

Na  + Ng 


Flow  Chart 


See  following  page 
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Internal  Subroutine  Name: 


mncvotr 


Flow  Chart: 


call  mncvotr(ptrd,  temp,  ptro) 


pointer  to  data  class  file 

temporary  symbol  to  be  used 

address  for  output 

"mncvotr"  calculates  the  mean  and 
covariance  of  the  vectors  which  have 
the  given  temporary  symbol  for  the 
given  data  class.  The  resulting 
mean  and  covariance  is  stored 
starting  at  location  ptro. 

Next  page 


mncvotr 


m i 


t 


Internal  Subroutine  Name; 


Calling  Sequence: 


Input  Parameters : 
lptr 


field 


pairptr 


ndim 


ptrs 


nodeno 


ptrs(l) 
ptrs ( 2 ) 


ptrs ( 3 ) 
ptrs ( 4 ) 
ptrs( 5) 


node ( 1 ) 
node( 2 ) 


modi 


call  modi  (lptr,  field,  pairptr, 
vptr,  ndim,  ptrs,  nodeno) 


pointer  to  top  of  "lbuff",  the 
temporary  file  in  the  process 
directory  which  contains  the  desired 
modified  logic 

number  of  fisher  thresholds  used  in 
evaluation 

pointer  into  the  header  information 
for  the  desired  class  pair  in  the 
logic  block  of  the  selected  fisher 
node 

pointer  to  the  criteria  logic  block 
of  the  pair  selected  for  modification 
in  "pairmod" 
dimensionality  of  data 
array  of  5 pointers 


± -L  XC 

pointer  to  the  top  of  the  "display"f ile 
pointer  to  the  top  of  the  tree  name  file 
pointer  to  the  top  of  the  logic  file 


an  array  of  2 integers 


the  node  number  of  class  A of  the  pair 
A/B 

the  node  number  of  class  B of  the  pair 
A/B 


pointer  to  the  top  of  the  "sysdata"  file 
pointer  to  the  word  73  of  the  "scratch" 
file 


Output  File  Setting 


The  temporary  logic  block  in  the 
process  directory,  "lbuff"  is  built 
with  the  format  similar  to  the  one- 
space  group  logic  block  format. 


If  the  number  of  thresholds  is  to 
apply  to  all  pairs,  section  LPRa  of 
the  logic  block  header  for  all  pairs 
is  replaced  with  the  new  number  of 
thresholds  and  no  "mini"  confusion 
matrix,  printed  by  subroutine 
"partial2",  is  generated.  Control 
is  returned  to  "pairmod". 


Program  Description 


Otherwise,  the  "lbuff"  file  is  con- 
structed under  proper  format  and 
"partial2"  is  called.  Upon  accept 
ance  of  the  modification,  the 
section  LPRa  of  the  logic  block 
header  for  this  pair  is  updated. 
Then  the  program  returns  to 
"pairmod" . 

Flow  Chart : See  following  page 

IT 


4-322 


Update  # thres- 
holds in  header 
part  of  Fisher 
block  for  all 


Adjust 
all  pairs?,/ 


Construct  "lbuff 
and  "call  partial 


vnew  logic? 


Update  criteria 
block  of  this  pair 


Return  to 
"pairmod 


Internal  Subroutine  Name:  mod2 


Calling  Sequence: 

Input  Parameters : 
pair 

other 

Output  File  Settings : 
Program  Description : 


call  mod2  (ndim,  ptrs , pair, 
pairptr,  lptr,  nodeno) 


an  array  of  2 class  names 

(pair(l)  4-character  node  name  of 
class  A in  pair  A/B 
(pair(2)  4-character  node  name  of 
class  B in  pair  A/B 


"see  nod  1" 

The  "lbuff"  file  in  the  process 
directory  will  contain  logic  in  a 
format  similar  to  one-space  group 
logic.  This  file  is  evaluated  by 
"partial2"  and  if  the  user  desires, 
this  will  become  the  new  logic  for 
this  pair.  The  section  of  the  logic 
file  for  this  node  will  be  adjusted 
to  reflect  this  new  addition. 

Initially,  the  current  type  of  logic 
is  determined,  either  fisher  or 
arbitrary  one-space.  The  subroutine 
"mod2"  is  used  in  both  instances  to 
adjust  thresholds.  The  moos  sub- 
routine "ss$displayl"  and  "npcos"  are 
called  to  display  the  histogram  then 
"mod2$bndy"  draws  any  existing 
thresholds.  The  subroutine 
"pm  list$option"  writes  the  display 
option  list  in  the  upper-right  hand 
corner  of  the  screen.  When  the  user 
adjusts  the  thresholds  using  the 
cursor  (see  the  user's  documentation 
for  "pairmod") , the  tektronix  points 
returned  from  "multeks$read_xhair" 
are  converted  to  data  projection 
values  and  stored  in  "lbuff".  The 
logic  evaluation  routine  "partial2" 
is  called  to  present  a "mini" 
confusion  matrix.  Upon  acceptance, 
the  "lbuff"  file  is  copied  into  the 
logic  file  and  control  is  returned 
to  "pairmod". 

See  following  page 


Flow  Chart : 


m0d2 


Determine  dis- 
play information 
and  call 
|"ss$displayl  " 
Land  "npcos" 


, Call 

'hnod2$bndy"  &■ 
"pm_list$option 
for  display 
! manipulation 


Convert  new 
thresholds  to  data 
values  and  store 
in  "lbuff" 


Call 

partial2 


Update 
logic  file 


Return 


■ 


Internal  Subroutine 
Calling  Sequence: 

Input  Parameters: 
index 

other 

Program  Description 


Flow  Chart : 


Name:  mod2$bndy 


call  rnod2$bndy  (pairptr,  ptrs , 
index) 


an  integer  offset  from  top  of  logic 
file  to  the  two-word  header  for  the 
class  pair  selected 

see  mod  1 

This  subroutine  displays  any  existing 
threshold  on  the  current  histogram. 

If  the  logic  is  fisher,  the  thresholds 
are  obtained  from  "lbuff",  otherwise 
they  are  located  in  the  "display" 
file.  These  thresholds  are  con- 
verted to  tektronix  points  for  use 
in  "multeks$line" . The  thresholds 
are  drawn  and  control  is  returned  to 
the  calling  program. 


mod2$bndy 


Start 


1 

Convert  thres- 
holds to 
Tektronix 
locations 

1 

Call 

"multeks$line" 
to  draw  thres- 
holds 


r 


Return 


mod  3 


Calling  Sequence: 


Input  Parameters : 


other 


Output  File  Settings 


Program  Description: 


Flow  Chart: 


call  mod3  (pairptr,  ptrs , nd-'.m, 
pair,  lptr,  nodeno) 


see  "mod2" 
see  "modi" 

The  "lbuff"  file  will  contain  logic 
in  a format  similar  to  arbitrary  one- 
space  logic.  The  file  is  evaluated  by 
"partial2"  and  if  the  user  desires, 
this  will  become  the  new  logic  for 
this  pair.  The  section  of  the  logic 
file  for  this  node  will  be  adjusted 
to  reflect  this  new  addition. 

The  parameters  are  evaluated  and  if 
the  current  logic  node  number  does 
not  equal  1,  then  "ftnfile"  is 
called  to  create  a new  treename  file 
based  on  the  vectors  which  correspond 
to  a particular  temporary  symbol. 

The  subroutines  "dg$dd" , "dg$dcrmsu" 
and  "dcrim"  are  used  to  calculate 
the  new  fisher  vector  based  upon  the 
eliminated  measurements.  The  new 
fisher  thresholds  are  then  calculated 
and  stored  in  "lbuff". 

If  the  user  decides  to  accept  the  new 
logic,  based  on  the  "mini"  confusion 
matrix  presented  by  "partial2" , the 
criteria  block  for  this  pair  in  the 
logic  file  is  updated  with  the  inform- 
ation in  "lbuff". 

The  program  exits  by  returning  to 
"pairmod" . 

See  following  page. 
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"dcrim"  to  cal- 
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Calculate  the 
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Call 

partial2 

1 
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no 


'I 

Return 


Internal  Subroutine  Name:  mod5 


Calling  Sequence: 

Input  Parameters : 
Output  File  Settings: 


Program  Description: 


Flow  Chart : 


call  mod5  (pairptr,  ptrs , lptr , 
ndim,  nodeno) 

See  "modi" 

The  "lbuff"  file  will  contain  logic 
in  a format  similar  to  the  one- 
space  group.  This  file  is  evaluated 
by  "partial2"  and  if  the  user 
desires,  this  will  become  the  new 
logic  for  this  pair.  The  section  of 
the  logic  file  for  this  node  will  be 
adjusted  to  reflect  this  new  addition 

The  parameters  are  evaluated  and  the 
number  of  thresholds  to  be  imple- 
mented in  the  evaluation  is  returned 
from  the  user.  The  "lbuff"  file  is 
created  in  the  arbitrary  one-space 
format  and  "partial2"  is  called. 

Upon  acceptance  of  the  new  logic, 
the  criteria  block  is  altered  to 
fisher  logic.  The  index  to  a 
possible  auxiliary  criteria  block 
created  by  "pairmod"  is  deleted. 

This  routine  returns  to  "pairmod" 

See  following  page 


niod5 


Evaluate  par  am 
! eters  & deter- 
; mine  number  of 
thresholds  to 
use 


(Create  "lbuff 
and  call 
j partial2 


Accept 

modified 

logic,?-'' 

ye  s 


Update  criteria 
block 


Return 


Internal  Subroutine  Name:  mod6 


Calling  Sequence: 

Input  Parameters : 
pair 
other 

Output  File  Settings : 
Program  Description : 


call  mod6  (ptrs,  lptr,  ndim, 
pairptr,  pair,  nodeno) 


see  "mod2" 
see  "modi" 

The  "lbuff"  file  will  contain  logic  in 
a format  similar  to  the  one-space 
group.  This  file  is  evaluated  by 
"partial2"  and,  if  the  user  desires, 
this  will  become  the  new  logic  for 
this  pair.  The  section  of  the  logic 
file  for  this  node  will  be  adjusted  to 
reflect  this  new  addition. 

The  data  projection  subroutine 
"arbv$arbvcl"  is  called  to  determine 
the  basis  vector  and  display  the 
histogram.  The  display  option  list 
is  presented  by  "pm_list$option" . 

When  the  user  draws  the  desired 
thresholds,  the  "convex"  sides  of 
the  boundaries  are  associated  with 
classes  and  the  "lbuff"  file  is 
created . 

Upon  acceptance  of  the  new  logic, 
through  the  "mini"-evaluation  pre- 
sented by  "partial2"  the  sub- 
routine "mod8$locate"  returns  a 
pointer  to  a vacant  block  in  the 
logic  file  and  the  auxiliary  criteria 
block  is  positioned  there.  The 
appropriate  links  to  it  are  made  and 
control  is  returned  to  "pairmod" . 


Flow  Chart : 


See  following  page 


mod6 


Determine  pro- 
jection vector  & 
present  histo- 
gram 


Call  "pm_list$ 
option"  to  manip 
ulate  the  display 
as  desired 


Fill  in  "Ibuff 
& call 
"partial2" 


Accept 
v modified 
logic  ? 


Call  "mod 8$locate" 
& create  aux- 
iliary criteria 
block 


Return  to 
pairmod" 


Internal  Subroutine  Name:  mod7 


Calling  Sequence: 

Input  Parameters: 
pair, 
names 


other 

Output  File  Settings: 


Program  Description: 


F'Lov,  ;hart: 


call  mod7  (ndim,  pairptr,  pair, 
ptrs , names,  nodeno , lptr) 


see  "mod2" 

an  array  of  2 characters 

names(l)  display  symbol  of  class  A 
in  pair  A/B 

Names(2)  display  symbol  o7  class  B 
in  pair  A/B 


The  "lbuff"  file  will  contain  logic 
in  a format  similar  to  the  two-space 
group  logic  format.  The  file  is 
evaluated  by  "partial2"  and  if  the 
user  desires,  this  will  become  the 
new  logic  for  the  pair.  The  section 
of  the  logic  file  for  this  node  will 
be  adjusted  to  reflect  this  new 
addition. 

This  program  is  the  "pairmod"  sub- 
routine that  creates  or  modifies 
discriminant  plane  logic.  The  plot 
routines  "ss$display"  and  "clusscat" 
present  the  data  projected  on  the 
fisher  and  fisher^ orthonormal 
directions . 

The  display  can  be  manipulated  through 
the  list  of  options  presented  by 
"pm_list$option" . After  the  boundaries 
have  been  drawn  and  classes  assigned 
to  the  convex  region  of  each  boundary, 
"mod8$aux2"  converts  these  boundaries 
into  the  two-space  group  logic  format 
and  stores  them  in  "lbuff".  The  "mini" 
confusion  matrix  is  printed  by 
"partial2".  Upon  acceptance  of  this 
new  logic,  mod8$locate"  returns  a 
pointer  to  a start  in  the  logic  file 
of  the  auxiliary  criteria  block.  The 
"lbuff"  file  is  copied  into  this  area 
and  control  is  returned  to  "pairmod". 

See  following  page 
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Internal  Subroutine  Name: 
Calling  Sequence: 


Input  Parameters 


Program  Description: 


mod8 

call  mod8  (pairptr,  ptrs , ndim, 
nodeno,  names,  lptr) 


names 

see 

"mod7" 

other 

see 

"modi" 

ut  File  Settings: 

The 

"lbuff 

in  a format  similar  to  the  two- 
space  logic  format.  The  file  is 
evaluated  by  "partial2"  and  if  the 
user  desires,  this  will  become  the 
new  logic  for  the  pair.  The  section 
of  the  logic  file  for  this  node  will 
be  adjusted  to  reflect  this  new 
addition. 

This  program  is  the  "pairmod" 
subroutine  that  creates  or  modifies 
arbitrary  two-space  logic.  Initially 
the  display  routine  "arbv$arbvc"  is 
called  to  determine  the  projection 
vectors  and  present  the  two-space 
plot.  Then,  "pm_list$option"  is 
used  for  display  manipulation  and 
boundary  drawing.  After  assigning 
the  "convex"  regions  of  the  boundaries 
to  classes,  "mod8$aux2"  converts 
these  boundaries  into  a format 
identical  to  two-space  group  logic 
and  stores  this  information  in 
"lbuff". 


Flow  Chart 


After  the  evaluation  is  presented  by 
"partial2"  and  if  the  user  accepts 
this  new  logic,  "mod8$locate" 
returns  a pointer  to  the  newly  created 
auxiliary  criteria  block  in  the  logic 
file.  The  logic  is  then  copied  from 
"lbuff"  into  the  auxiliary  block  and 
control  is  returned  to  "pairmod" . 

See  following  page 


mod  8 


'Determine  pro- 
jection vectors  & 
call  "arbv$arbvc" 


Call 

"pm  list$option 
for  Boundary 
creation  & dis- 
play manipula- 
tion 


Call  "mod8$aux2" 
to  prepare  "lbuff” 
for  evaluation 
by  "partial2" 


Accept 

modified 

logic? 


Call  "mod8$locate" 
& build  auxiliary 
criteria  block 


Return 
to  "pairmod1 


Internal  Subroutine  Name: 


Calling  Sequence : 


Input  Parameters 


Output  Parameters: 
aux_length 

Output  File  Settings: 


Program  Description: 


Flow  Chart 


mod8$aux2 

call  mod8$aux2 ( ptrs , lptr,  ndim, 
aux_length)" 

See  "modi" 


length  of  auxiliary  criteria  block 

The  "lbuff"  will  contain  logic  in 
the  format  similar  to  the  two-space 
group  logic  format 

The  boundary  points  and  convex 
points  are  determined  from  the 
"display"  file  and  "creatlog$discrim" 
is  called  to  convert  them  to  line 
segments  and  discriminants.  This 
information  is  stored  in  the  two- 
space  group  logic  format  in  the 
"lbuff"  file. 


mod8$aux2 


Start 


Determine  # of 
boundaries  and 
number  of  points 
in  each 


Call  "creatlog$ 
discrim"  and 
store  information 
in  "lbuff" 


R eturn 
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Internal  Subroutine  Name:  mod8$locate 


Calling  Sequence: 

Input  Parameters: 
length 
other 

Output  Parameters : 
aptr 

Program  Description: 


call  mod8$locate  (aptr,  pairptr, 
ndim,  length) 


length  of  auxiliary  criteria  block 
see  "modi" 


pointer  to  start  of  auxiliary 
criteria  block  in  logic  file 

The  parameter  "length"  is  compared 
against  the  length  of  any  existing 
auxiliary  criteria  block.  If 
"length"  is  less  than  this  number, 
"aptr"  is  returned  to  the  current 
location  of  this  block.  Otherwise, 
the  pointer  value  is  taken  from 
word  5 of  the  logic  file,  the  index 
to  the  next  free  location  in  the 
logic  file.  Word  5 is  reset  and 
control  is  returned  to  the  calling 
program. 


Flow  Chart : 


See  following  page 


mod8$  locate 


Internal  Subroutine  Name: 


mod  9 


Calling  Sequence: 

call  mod9  (ptrs,  pairptr,  pair, 
lptr,  nodeno , pairc) 

Input  Parameters: 

pairc 

char  (2)  display  symbols  of  classes 
being  modified 

pair 

see  "mod2" 

other 

see  "modi" 

■Output  File  Settings: 

The  "lbuff"  file  will  contain  logic 
in  a format  similar  to  Boolean 

Program  Description: 


Flow  Chart 


logic.  The  file  is  evaluated  by 
"partial2"  and,  if  the  user  desires, 
this  will  become  the  new  logic  for 
the  pair.  The  section  of  the  logic 
file  for  this  node  will  be  adjusted 
to  reflect  this  new  addition. 

This  subroutine  is  used  by  "pairmod" 
to  allow  for  Boolean  logic.  The 
user  enters  the  statement  and  it  is 
stored  in  "lbuff"  for  use  by 
"partial2 . " 

Upon  acceptance  of  this  logic, 
"mod8$locate"  returns  a pointer  to 
the  auxiliary  criteria  block  and 
copies  the  "lbuff"  file  into  this 
area. 

"mod9"  then  returns  to  "pairmod." 

See  following  page. 
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Internal  Subroutine  Name:  modlO 


Calling  Sequence: 


call  modlO  (ptrs,  treename , node- 
name) 


Input  Parameters: 


ptrs 

(5) 

ptr 

ptrs(l)  - sysdata 
ptrs(2)  - scratch 

ptrs(3)  - display 
ptrs (4)  - treename 

ptrs  (5)  - r oslogic 

treename 

char 

(8) 

tree  name  of  the  current 

data 

set 

nodename 

char 

(A) 

class  name  of  the  current 

data 

set 

Program  Description: 

modlO  is  a subroutine  utilized  by  pairmod  which  allows 
the  user  to  change  a standard  fisher  pairwise  logic  into  a 
group  type  logic.  The  resulting  pairwise  logic  does  not  pro- 
duce complete  separation  of  the  data  classes.  Further  logic 
must  be  developed  to  obtain  complete  classification. 

For  a more  detailed  description  of  the  operation  of  modlO, 
see  the  program  listing  documentation. 


- 


I 

4 

I 

i 


■ 
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■■■ 


WJ,  L V 


.Zsl: 


Internal  Subroutine  Name:  moosinitiate 


Calling  Sequence : 


call  moosinitiate 


Output  File  Settings; 


"sysdata"  file 


"display"  file 


Program  Description: 


/ 


CSS1  = "notatree" 

CSS2  = "nono" 

CSS4  = 1 

,css3/css5/css6  = o 

All  FI  entries  = "notatree" 
the  first  SI  entry  = "nono" 

word  1=0 

/ 

"moosinitiate"  initializes  files 
"sysdata",  "scratch"  and  "display"  in 
the  user's  temporary  directory  and 
sets  initial  values  into  the  sysdata 
and  display  files.  This  routine  is 
called  upon  user  entrance  to 
the  system  by  "ut$ckparam" . 


Flow  Chart : 


Start 


1 Make  segments 
"sysdata", 
"scratch"  and 
"display" 

i 

Set  current  data 
tree  to  "notatree" 

& initiate  "sysdata" 
pnd  "display" 

I 

( 

i 

Return 
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Utility  Function  Name: 


moosmode 


Calling  Sequence:  Type  in  "moosmode" 

Program  Description: 

moosmode  lists  all  trees  whose  dimensionality  is  greater 
than  100,  and  all  trees  that  have  100  or  less  dimensions  and 
no  treename  files.  The  user  may  have  treename  files  created 
for  any  or  all  of  the  trees  in  the  second  list.  Treename 
files  are  created  through  calls  to  moosmode$ctreename . 

If  there  are  no  trees  with  greater  than  100  dimensions, 
and  all  trees  have  treename  files,  moosmode  sets  sense  switch 
3 to  "off,"  thus  leaving  the  excess  measurement  mode  and 
allowing  normal  MOOS  functions  to  be  executed. 

For  a more  detailed  description  of  the  operation  of 
moosmode,  see  the  program  listing  documentation. 

For  a list  of  programs  which  may  be  executed  while  the 
system  is  in  the  excess  measurement  mode,  see  Sections  1 and 
4.2.1. 


Internal  Subroutine  Name : 


moosmode$ctreename 


Calling  Sequence: 

Input  Parameters: 
t 

treename 

Program  Description: 


call  moosmode$ctreename  (t, 
treename) 


fixed  (35)  tree  number  (same  as  no. 
which  would  appear  in  CSS3  in 
sysdata) 

char  (8)  tree  name  of  the  tree  whose 
treename  file"  is  being  created. 


ctreename  creates  a treename  file  for  a one-(l-)  level 

Dat?  ClaK%fil?S’  “d  a11  sy^ata  information  must 
be  correctly  set  up  beforehand. 


Internal  Subroutine  Name:  msxform 


Calling  Sequence: 
Input  Parameters: 


ndiml 


ndim2 


Program  Description : 


call  msxformCpl,  ndiml,  p2 , ndim2) 


a pointer  to  a vector  to  be  transformed 

dimension  of  vector  to  be  transformed 

pointer  to  a place  where  transformed 
vector  can  be  placed 

dimension  of  transformed  vector 

"msxform"  is  a routine  created  by 
routine  "measxform".  Its  purpose  is 
to  transform  a vector  according  to  a 
set  of  entered  transformation  rules. 
However,  those  rules  are  not  known 
until  routine  "measxfrm"  is  run  and 
therefore  no  flow  chart  can  be 
written  for  "msxform". 


4-346 


■ 


Internal  Subroutine: 


multeks 


f 


"multeks" is  a set  of  6 PL/1  subroutines  that  can  be  used  by 
the  programmer  to  control  the  Tektronix  4002A  under  control  of 
MULTICS. 


Points  on  the  display  area  of  the  storage  tube  range  from 
0 - 1023  in  the  x direction  and  0 - 761  in  the  y direction. 
Point  (0,0)  on  the  screen  is  located  at  the  bottom  left  hand 
corner  of  the  screen. 

4002A 


+y 


. (0,761) 


! . (0,0)  (1023,0). 


+x  ► 


In  the  description  of  the  "multeks"  subroutines,  a tekpoint 
refers  to  an  (x,y)  point  in  this  range. 

The  6 subroutines  are:  (1)  multeks$erase 

(2)  multeks$home 


(3)  multeks$print_char 

(4)  multeks$position_ptr 

(5)  multeks$line 

(6)  multeks$read  xhair 


Internal  Subroutine  Name: 


multeks$erase 


Calling  Sequence : 
Program  Description : 


call  multeks$erase 

multeks$erase"  subprogram  erases 
the  screen  and  places  the  terminal 
in  alphanumeric  mode.  The  cursor 

— not  movec*  from  the  current  cursor 
tekpoint. 


Flow  Chart : 


multeks$erase 


Start 

! 

y 

Output  the  CAN 
control  character 
to  erase  the 
screen 

7 

Delay  . 5 seconds 
for  screen  to 
erase 


4 

Output  US  control 
character  to  re- 
turn to  alpha- 
numeric mode 


T 

Return 


I 
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Internal  Subroutine  Name:  multeks$home 


Calling  Sequence: 


call  multeks$home 


Program  Description: 


"multeks$home"  positions  the  cursor 
at  tekpoint  (0,761),  and  places  the 
terminal  in  alphanumeric  mode. 


Flow  Chart: 

multek  s $home 


Start 

r Cl, 

Output  SOH 
control  charac- 
• ter  to  home 
[ curso 

r~ 

Output  US  con- 
trol character 
to  place  in 
| alpha  mode 

L_ 


Return 
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I 


Internal  Subroutine  Name:  multeks$line 

Calling  Sequence : 

Input  Parameters: 
xl,  yl 

x2,  y2 

Program  Description: 


Flow  Chart: 


multeks$line 


Start 

7 

Divide  xl , yl , 
x2,  y2  into  high 
& low  com- 
pon  ents 

7 

Output  GS  control  char, 
to  place  in  linear  inter- 
polate mode,  followed  by 
high  yl , low  yl , high 
xl,  low  xl,  high  y2, 
low  y2,  high  x2,  low  x2 
to  draw  vector , followed 
(by  US  control  char,  to 
return  to  alpha  i 

1 

Return 


call  multeks$line  (xl,  yl,  x2,  y2) 


the  first  (x,y)  tekpoint  [each 
fixed  bin] 

the  second  (x,y)  tekpoint  [each 
fixed  bin] 

"multeks$line"  draws  a vector  from 

tekpoint  (xl,yl)  to  tekpoint 

(x2,  y2)  and  returns  to  alpha  mode. 
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Internal  Subroutine  Name:  multeksOposition  ptr 

Calling  Sequence:  call  multeks$position  ptr(x,y) 

Input  Parameters : 

x the  x tekpoint  [fixed  bin] 

y the  y tekpoint  [fixed  bin] 

Program  Description:  "multeks$position_ptr"  positions 

the  cursor  at  the  given  (x,y)  tek- 
point and  returns  to  alphanumeric 
mode . 


Flow  Chart: 


multeks$position_ptr 


I 


Start 

I 

Divide  x & y into 
high  & low 
components 

I ^ 

f 

Output  GS  control 
character  to  place 
terminal  in  linear 
interpolate  mode 

L i 

T 

Output  high  y, 
low  y,high  x,  low 
x to  position  cur- 
sor & output  US 
control  char. 

T 

Return 
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Internal  Subroutine  Name:  multeks$print  char 


Calling  Sequence:  call  multeks$print_char  (ehar,x,y) 

Input  Parameters : 

char  the  character  to  be  printed 

[char  (1)] 


Z 


the  x tekpoint  coordinate  where 
"char"  is  to  be  placed  [fixed  bin)] 

the  y tekpoint  where  "char"  is  to 
be  placed  [fixed  bin] 


Program  Description : 


"multeks$print_char"  positions  a 
character  at  a given  (x,y)  tekpoint 
and  places  the  terminal  in  alpha- 
numeric mode. 


Flow  Chart: 


Next  page. 


multeks$print_char 


Divide  x coord, 
into  the  high 
component  & the 
low  component 


Divide  y coord, 
into  high  & low 


Output  GS  con- 
trol character  to 
place  terminal 
in  linear  inter-  : 
polate  mode 


Output  high  y, 
low  y,  high  x, 
low  x to  position 
cursor 


Output  US 
control  char 


Output  "char 


Return 


Internal  Subroutine  Name: 


multeks$read  xhair 


call  multeks$read_xhair  (char,  x,  y) 

"multeks$read_xhair"  turns  on  the 
crosshair  and  thus  places  the  ter- 
minal in  graphics  input  mode.  When 
the  user  has  positioned  the  cross- 
hair where  desired,  he  may  then  en- 
ter any  character.  This  character 
and  the  x,  y coordinates  of  the 
crosshair  are  transmitted  to  the 
program.  The  program  then  decodes 
this  information  and  returns  to  the 
caller : 

char  - the  character  depressed 
[char  (1)] 

x - the  x-coordinate  of  the 

tekpoint  of  the  crosshair 
[fixed  bin] 

y - the  y-coordinate  of  the 

tekpoint  of  the  crosshair 
[fixed  bin] 


multeks$read_xhair 


' 


Start 


I 


Output  del  & sub 
control  chars,  tq 
place  terminal  iq 
graphics  input  | 
modeLturn_Sh ^iojrfstick 


pTead^5  bytes'  of  info, 
j byte  1-char,  depressed 
byte  2 -high  comp,  of  Xj 
j byte  3-low  comp,  of  x ; 

' byte  4 -high  comp,  of  y: 
byte  5 -low  comp,  of  y 


1. 


Char  = byte  1 
x = byte2U  byte3j 
, y = byte4  U byte  5 


Return 


Internal  Subroutine  Name: 


muitmat 


! 

i 


Calling  Sequence:  call  muitmat  (a,  ai,  aj,  b,  bi,  bj,  c) 

Input  Parameters: 

(100,  100)  premultiplier 
number  of  rows  in  a. 
number  of  columns  in  a. 

(100,  100)  postmultiplier, 
number  of  rows  in  b. 
number  of  columns  in  b. 

Output  Parameter: 

£ - (100,  100)  product  matrix 

Program  Description:  muitmat  first  checks  that  the  matrices  are 

comformable  for  multiplication.  The  product 
matrix  is  computed  as 

n 


a 

aj 

b 

bi 

bj 


c (ij)  - a (i,k  ) x b (k  , j) 

k=l 


where  n = aj  = bi  . 


Flow  Chart: 


muitmat 


Start 


aj  = bi? 


no 


, yes 

1 

Compute 
Pro duct 
Matrix  C 


Return 


r,r 


j 


MOOS  Function  Name: 


MOOS  Function  Number: 


Calling  Sequence: 


Input  Parameters: 


Output  File  Settings: 


Program  Description: 


Type  in  "nlm  |(treename)  (nodename)  " 

Standard  optional  data  set  selection  parameters 

nlm  sets  up  the  display  file  for  a two-space 
plot  of  the  selected  (or  the  clustered)  data  set. 

nlm  checks  the  total  number  of  vectors  in  the 
selected  data  set.  If  this  number  exceeds 
200,  internal  subroutine  clusterl  is  called 
which  creates  a new  tree  with  fewer  vectors 
for  the  use  of  nlm. 


The  user  is  then  given  the  choice  of  a two  or 
three  space  mapping.  The  user  can  select 
any  coordinate  axis  for  the  initial  projection, 
or  let  the  system  select  the  coordinate  axes 
with  maximum  variance. 

As  nlm  does  its  calculation,  it  computes  and 
displays  a relative  error  function.  The  user 
may  look  at  the  projection  of  his  data  at  in- 
tervals and  stop  the  calculation  when  he  is 
satisfied. 


Flow  Chart: 


If  the  three -space  option  was  chosen,  a call 
is  made  to  nlm$sequence  which  sets  up  the 
display  file  to  project  the  data  on  the  first 
pair  of  coordinate  axes. 


See  following  page. 


2 or  3 space 
projection  is  I 
desired. 

[ 

'f 

Ask  user  to 
select  original 
projection 
axes 

1 ....  . 

7 

Calculate  and 
store  distance 
between  each 
pt  in  "n"  sp. 

b* 

7 

I 

I Compute  error 
function  & dis- 
tance between 
each  point  in 

2 or  3 space 

t 

f 

f f 

Calculate  new 
positions  for 
each  vector 
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Internal  Subroutine  Name:  nlm$sequence 


Calling  Sequence: 


Input  File  Settings: 


Output  File  Settings 


Program  Description: 


call  nlm$sequence 

The  "display"  file  and  the  "csdata" 
file  must  nave  been  set  up  for  a 
three-space  nlm. 

The  "display"  file  and  "csdata" 
modified  such  that  a different  two- 
space  projection  may  be  displayed. 

nlm$sequence  is  used  by  nlm  to 
initialially  set  up  the  "display" 
file  after  a three-space  nlm.  The 
data  for  all  three  dimensions  are 
stored  in  "csdata"  as  well  as  the 
data  for  the  two  dimensions  cur- 
rently displayed.  When  nlm$sequence 
is  called  by  seq,  "csdata"  and 
"display"  are  modified  such  that 
another  pair  of  dimensions  is  dis- 
played . 


Flow  Chart : 


nlm$sequence 


start 


modify 
"csdata"  6 
"display" 
files 


call 

clusscat  i 


.:/ 


return 
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I 


Internal  Subroutine  Name: 


nmv_logic 


Calling  Sequence:  call  nmv_logic  (cn,  logptr, 

vectptr,  ndim,  eptr) 

Input  Parameters: 

current  logic  node  number 
pointer  to  first  word  of  logic 
block 

pointer  to  first  measurement  of 
vectors 

number  of  dimensions 
pointer  to  area  in  which  error  in- 
formation will  be  placed 

Output  Parameters : 

cn  logic  node  number  of  assigned 

class 

eptr  pointer  to  next  available  slot  in 

error  file 


cn 

logptr 

vectptr 

ndim 

eptr 


Program  Description:  nmv_logic  computes  the  distance 

squared  of  the  vector  to  the  means 
of  each  class  according  to  the 
algorithm  flagged.  The  distance 
to  the  true  class  is  stored  sep- 
arately at  this  time. 

The  vector  is  temporarily  assigned 
to  the  class  which  yields  the 
smallest  distance.  If  the  reject 
flag  is  on,  this  value  is  compared 
to  the  reject  value  for  that  class; 
the  vector  is  rejected  if  the  com- 
puted distance  squared  is  greater 
than  or  equal  to  the  reject  value. 

If  this  is  not  the  case,  ties  in 
which  two  or  more  classes  yielded 
the  same  value  are  checked  for, 
and  if  any  exist,  the  vector  is 
rejected.  If  this  is  not  the  case, 
and  the  assigned  class  is  not  the 
true  class,  an  error  is  generated. 

If  a reject  or  error  has  occurred, 
this  information  is  inserted  in 
the  error  file.  An  output  distance 
value  is  obtained  by  taking  the 
square  root  of  the  distance  squared. 


Flow  Chart : 


See  following  page. 


nmv  logic 
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no 
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assigned  to no  information 

v-  true  class?'  " in  error  file 

j 

i 

yes  

■< 
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Reject 
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Return 


MOOS  Function  Name: 


nmv 


MOOS  Function  Number: 


Calling  Sequence: 
Input  Parameters: 


Output  File  Settings: 


Program  Description: 


63 

r 

Type  in  "nmv  .(treename)  (nodename)  " 

The  standard  optional  data  set  selection 
parameter  s 

treename,  nodename  "logic"  file:  a nearest 

mean  vector  logic  block  is  added,  and  ncls  + Z 
nodes  are  added  to  the  node  part  of  the  struc- 
ture part. 

nmv  sets  up  the  node  section  of  the  structure 
portion  of  the  mooslogic  file,  calls  sln$gn  for 
each  class  assignment  of  a node  section  of 
the  structure  portion  for  each  lowest  node 
under  (treename),  (nodename)  and  for  the 
reject  node.  Next,  nmv  calls  nmv$bsu  to 
set  up  the  logic  block,  and  then  cycles  through 
calling  nmv$fsu  (to  input  the  user  options  and 
set  the  flags)  and  calling  pevnm  (for  partial 
evaluation)  until  the  user  does  not  wish  to 
change  his  options. 


Flow  Chart: 


See  following  page. 


nmv 


Call 

ut$ckparam  i 


Call  i 
sin  J 


Call 

$all_part(i) 


Call 
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node  section 


Call 

nmv$bsu 


nmv$fsu 


pevnm 


User  want 


aaf-Z.14,, 


Internal  Subroutine  Name : 


nmv$bsu 


Calling  Sequence:  call  nmv$bsu  (fpoint,  Ipoint,  ncls,  ndim, 

nd,  lnd)" 

Input  Parameters: 

array  of  5 pointers  to  "sysdata",  "scratch", 
"display",  (treename)  file  and  mooslogic 
file. 

pointer  to  area  in  mooslogic  file  in  which  the 
nmv  logic  block  is  to  be  placed, 
number  of  classes, 
number  of  dimensions. 

array  (72)  of  four  character  class  names, 
array  (73)  of  logic  node  assignments  parallel 
to  nd  (plus  reject). 

nmv$bsu  sets  up  the  nmv  logic  block  by 
filling  in  the  number  of  classes,  the  logic 
node  assignments,  and  the  means,  weighting 
matrix,  and  the  packed  inverse  of  the  co- 
variance  matrix  for  each  class. 

Flow  Chart:  See  following  page. 


Program  Description: 


fpoint 


Ipoint 

ncls 

ndim 

nd_ 

lnd 
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nmv$bsu 


Start 


31 

Enter 

ncls 


Enter  ncls+1 
logic  node 
assignments 


i = 0 ! 


< ' i = i+1 


|i  £ ncls 

call  tfs  for 
nd(i) 


Insert  means 
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Internal  Subroutine  Name:  nmv$fsu 


Calling  Sequence: 
Input  Parameters: 
point 
scptr 

Program  Description: 


Flow  Chart: 


call  nmv$fsu  (point,  scptr) 


pointer  to  number  of  classes  (first  word)  in 
nmv  logic  block, 
pointer  to  "scratch" 

nmv$fsu  sets  the  default  values,  offers  the 
option  list,  inputs  and  checks  the  user  input 
list,  sets  the  appropriate  flags,  and  then  re- 
turns. Possible  errors  are  in  entering  a 0 
with  non-zero  numbers  and  entering  a 1 and 
2 in  the  same  list.  If  option  4 is  selected, 
then  option  3 is  automatically  selected. 

See  following  page. 


i 
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nmv$fsu 


Start 


Set 

default 
va lues 


1 
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\ Error? 
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Input  list 
of  values, 
assign  each 
to  proper 
class 


Input 

one 

value 


Return 





Internal  Subroutine  Name:  nmvlogic 


Calling  Sequence: 


call  nmvlogic  (fileptr,  optfile, 
numdim,  dex,  'nodes,  fl,  ifile) 


Input  Parameters : 
fileptr 


optfile 


numdim 


pointer  to  mooslogic  file 
pointer  to  option_file 
number  of  dimensions 


nodes 


index  to  logic  block 

array  (72)  of  4- character  node  names 
at  node 


ifile 


Program  Description: 


level  flag  (0  - call  from  listlogic, 

1 - call  from  pwfisher) 

output  file  name 

nmvlogic  unmasks  the  number  of 
classes,  and  the  logic  information 
(weight  and  reject  flags)  for  a nmv 
logic  block.  It  then  outputs  the 
following  information:  the  option 

creating  logic  (if  fl  = 0),  the  type 
of  weighting  used,  the  reject 
boundaries  for  each  class  (or  no 
reject  used  if  reject  flag  = 0),  and 
then,  for  each  class,  the  mean  vector, 
the  weighting  vector,  and  the  weight- 
ing matrix.  If  fl  = 0,  then  the 
routine  outputs  the  logic  node  t^  go 
to,  depending  on  the  decision  made  at 
the  node,  before  returning. 


Flow  Chart : 


See  following  page 
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MOOS  F unction  Name: 


nmvmod 


MOOS  Function  Number:  59 


Calling  Sequence: 
Input  Parameters: 

Output  File  Settings: 
Pr  rram  Description: 


Flow  Chart: 


Type  in  "nmvmod  |(treename)  (nodename)  " 

The  standard  optional  data  set  selection 
parameters. 

(treename)  (nodename)  mooslogic  file:  user 
designated  nmv  logic  nodes  evaluation  flags 
are  changed. 

nmvmod  presents  a list  of  all  nmv  logic  nodes, 
together  with  the  classes  present  at  the  node. 
The  user  selects  a node,  and  the  routine  calls 
nmv$fsu  to  input  the  options  and,  if  the  user 
wishes  partial  evaluation,  call  ctsm  and 
pe  vnm. 

The  routine  will  return  if  the  logic  file  for 
(treename),  (nodename)  does  not  exist,  if 
there  are  no  nmv  logic  nodes,  or  if  the  user 
enters  0 in  response  to  selecting  a logic  node. 

See  following  page. 
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load  class 
names  in 
scratch 


Call 
nmv$  f su 


Call  pevnm 


Internal  Subroutine  Name: 


nmvprogram 

call  nmvprogram  (ii,  logicptr) 


logic  node  number  with  nearest 
mean  vector  logic  (fixed  (35)) 

pointer  to  MOOS  logic  file  (ptr) 

nmvprogram  is  the  subroutine  in 
the  "fortlogc"  option  of  MOOS 
that  generates  FORTRAN  code 
for  a nearest  mean  vector  logic 
node 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine 


MOOS  Function  Name: 


normxf rm 


MOOS  Function  Number:  129 


Calling  Sequence : 
Input  Parameters : 

Program  Description : 


type  in  "normxfrm  [(treename)]  [nodename 

standard  optional  data  set  selection 
parameters 

normxfrm  asks  the  user  to  enter  a new 
tree  name.  The  new  tree  which  is  created 
consists  of  the  original  data  set. 
normalized  by  the  standard  deviation  of 
each  measurement,  i.e.  each  measurement 
in  the  normalized  data  set  has  unit 
variance . 


Flow  Chart: 
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Internal  Subroutine  Name: 


npcos 


Calling  Sequence  call  npcos 

Output  File  Settings:  npcos  is  called  by  the  one-space 

structure  analysis  and  logic  design 
routines.  It  creates  and  sets  up 
the  "csdata"  file  in  the  proper 
format  (section  3.1)  and  creates  and 
sets  up  the  "microbuff"  file  for 
use  in  "micro"  displays.  After 
projecting  the  data,  it  is  deposited 
in  the  "display"  file,  starting 
with  word  2. 

Program  Description:  npcos  can  put  up  two  types  of 

displays;  the  "macro"  view  is  an 
overall  look  at  all  classes  or  a 
selected  subset  of  classes  at  once. 
In  the  view,  the  user  can  have  a 
feel  for  how  his  data  is  distri- 
buted along  a projection  vector. 

The  "micro"  view  is  a closer,  more 
detailed  look  where  one,  two,  or 
perhaps  more  classes  are  displayed. 
The  calling  algorithm  loads  in 
temporary  symbol,  tree  character, 
dimensionality,  number  of  classes, 
macro/micro  flag,  probability  / 
count  flag,  and  classnames. 
npcos  first  checks  C7 , data  pro- 
jection flag,  and  projects  the  data 
and  stores  the  result  in  "display" 
file.  Next,  it  bins  the  data  and 
stores  the  binned  data,  according 
to  class,  in  the  "csdata"  file. 

Next,  it  checks  the  macro/micro 
display  flag  (C5),  and  if  = 1,  then 
it  is  a micro  display.  It  will 
then  create  the  "microbuff"  file 
and  load  the  appropriate  classes 
into  the  file.  It  then  calls  the 
subroutine  microview. 

If  C5  = 0 then  it  is  a macro  view 
and  calls  macroview  for  each  dis- 
played class. 
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npcos  then  displays  scaling,  inform 
ation,  number  of  bins,  and  ranges  o 
data  on  the  console.  It  exits  by 
calling  option  unless  the  current 
moos  function  is  pairmod , then  it 
simply  returns. 


Flow  Chart: 


See  following  page 
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Internal  Subroutine  Name: 


onespace 


Calling  Sequence:  call  onespace  (logicptr, 

nodeptr) 

Input  Parameters: 

logicptr  pointer  to  MOOS  logic  file  (ptr) 

nodeptr  pointer  to  one-space  logic  node 

(ptr) 

Program  Description:  onespace  is  the  subroutine  in  the 

"fortlogc"  option  of  MOOS  which 
creates  FORTRAN  code  for  a one- 
space group  logic  node. 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation  of 
this  subroutine. 
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Internal  Subroutine  Name 
Calling  Sequence: 

Input  Parameters: 
logicptr 
pairptr 


reject 


Program  Description: 


optdisc 

call  optdisc  (logicptr,  pairptr, 
reject) 


pointer  to  MOOS  logic  file  (ptr) 

pointer  to  the  logic  for  this 
pair  of  classes  (ptr) 

reject  logic  node  number  (fixed 
(35)) 

optdisc  is  the  executive  for 
generating  FORTRAN  code  for  an 
optimal  discriminant  plane  logic 
pair  under  the  "fortlogc"  option 
of  MOOS 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation  of 
this  subroutine. 


Internal  Subroutine  Name: 


option 


Calling  Sequence: 


call  option  ("optl", 
"optn") 


'opt2' 


Input  Parameters: 


optl .... optn  char (8)  option 
list  (optional) 


Input  File  Settings: 


Program  Description: 


Flow  Chart: 


The  current  option  number  (CSS5) 
in  sysdata  must  be  set  and  the 
"option_file"  file  must  be  built. 

The  routine  initializes  the  sys- 
data file  and  masks  out  the 
current  option  number  (CSS5) . 

Using  this  number,  it  looks  in 
the  menu  portion  of  the  file  and 
retrieves  each  corresponding 
number  to  be  used  to  point  back 
to  the  name  portion  of  the  "option 
_file"  file  and  lists  these  names 
on  the  right  margin  of  the  screen. 

If  option  is  called  with  a 
parameter  list,  the  parameter 
list  becomes  the  option  list.  In 
this  case,  the  menu  portion  of 
the  "option_f ile"  is  ignored. 

See  following  page 
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Programmer  Aid  Name:  option$delete 


(’a  I I i up,  Sequence  : 
Output  I'ile  Setting; 

Program  Description: 


Flow  Chart: 


Type  in  ’'option$delete'' 

Th > specified  names  will  be  removed  from 
file  "option_f ile" . 

The  "option_file"  is  initiated  and  an 
option  name  is  requested  from  the  key- 
board. The  name  is  searched  for  in  the 
first  511  slots  and  if  found  is  deleted. 
Then  the  menu  section  of  the  file  for 
this  slot  is  zeroed  out  (if  the  slot  num- 
ber is  256  or  less)  and  all  references 
to  the  deleted  slot  are  also  zeroed  in 
other  menus. 

See  following  page 
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Programmer  Aid  Name: 


option$ insert 

Type  in  "option$insert" 


Program  Description:  The  routine  asks  for  an  option  name  and 

type.  The  user  will  give  an  eight 
character  name  and  a type  of  either  1 or 
2.  If  the  type  is  one,  an  option 
number  will  be  asked  and  the  option 
name  will  be  inserted  into  this  slot 
number.  Then  menu  names  will  be  asked 
for  corresponding  to  this  program,  name 
and  the  slot  numbers  will  be  found  and 
inserted . 

If  the  type  is  2,  a slot  will  be 
assigned  below  slot  256  for  this 
program  name. 

Then,  for  both  types,  menu  additions 
will  be  asked  for  and  inserted  into 
the  proper  menu  slots. 

Flow  Chart:  See  following  page 
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Programmer  Aid  Name: 


Calling  Sequence: 


Program  Description: 


Flow  Chart; 


option$  list 

Type  in  "option$list" 

The  routine  asks  for  a program  name 
and  initiates  the  "option^file"  file. 

The  menu  for  the  name  is  then  typed 
on  the  console. 
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Programmer  Aid  Name: 
Calling  Sequence: 
Program  Description: 


Flow  Chart: 


option$listall 

Type  in  "option$listall" 

The  routine  initiates  the  "option_file" 
file  and  outputs  the  menus  for  all 
programs  listed  on  the  console. 

See  following  page 
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Internal  Subroutine  Name: 


output_f ile 


f 


Calling  Sequence: 


call  output_file  (dname, 

fname) 


Input  Parameters : 
fname 

dname 


Program  Description : 


Flow  Chart : 


is  the  name  of  the  file  to  be 
outputted  [char(*)] 

is  a complete  pathname  to  the 
directory  in  which  fname  is 
located  [char  (168)  varying] 

"output_f ile"  dprints  a fileCin 
a printable  format)  from  a given 
directory.  Before  it  prints  the 
file,  it  assigns  a unique  name  to 
the  file.  In  this  way  no  name 
duplications  can  occur  on  out- 
putting.  The  unique  name  assigned 
is  "fname"  ||  ".0."H  (a  random 
integer  number  between  1 and  1000) 

Next  page 
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ye  s 


, ...  .... 


Utility  Function  Name: 
Calling  Sequence : 

Input  File  Settings  : 

Program  Description : 


page 

Type  in  "page" 

assumes  rank  order  display  file 
format 

"page"  gives  the  user  the  ability  to 
page  through  a ranking  display 


Flow  Chart : 
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MOOS  Function  Name:  pairmcd 


MOOS  Program  Number : 97 

F'uncLlon  Call:  pairmod  [treename]  [nodename] 


Input  Paramo  tors : 


[treename]  and  [nodename]  specify  a 
data  set  other  than  the  current  data  set. 


Output  File  Settings: 


Program  Description : 


"modi" 


The  logic  file  is  updated  to  reflect  the 
change  in  logic  for  any  or  all  pairs  of 
classes  of  a fisher  node.  In  addition, 
a temporary  file,  "lbuff"  is  created 
in  the  process  directory  and  contains 
the  current  modified  logic. 

Initially,  the  MOOS  subroutine 
"ut$ckparam"  is  called  to  determine 
what  the  current  data  set  will  be.  Then 
"sln$cp"  is  called  to  verify  that  a logic 
file  with  at  least  one  completed  pair- 
wise logic  node  exists  for  this  data  set. 
An  error  message  is  printed  and  control  is 
returned  to  the  command  level  if  there  is 
not . 

The  user  is  then  asked  if  any  logic  nodes 
are  to  be  combined  (the  resulting 
pairwise  logic  would  be  a "group"  logic) . 
If  the  user  answers  yes,  modlO  is  called. 

pairmod  then  asks  the  user  to  enter  the 
desired  class  pair  and  checks  that  this 
is  a valid  input.  The  two  node  names 
are  stored  in  words  74  and  75  of  the 
"scratch"  file  for  use  by  the  one  and  two- 
space  display  routine. 

The  subroutine  "pm_list"  is  called  to 
present  the  list  of  logic  options  to  the 
user  and  based  upon  his  selection,  one  of 
the  following  subroutines  is  called: 

change  the  number  of  fisher  thresholds 


"mod2" 


change  the  location  of  a fisher  or  an 
arbitrary  one-space  thresholds 


"mod3" 

change  the  number 
in  calculating  the 

of  measurements  used 
fisher  direction 

'mod5" 

- 

change  the 

current 

logic  back  to  "Fisher" 

’mod6" 

- 

change  the 
one-space 

current 

logic  to  arbitrary 

4 


”mod7" 

change  the  current 
discriminant  plane 

logic 

to 

optimal 

"mod8" 

- 

change  the 
two-space 

current 

logic 

to 

arbitrary 

"mod9" 

- 

change  the 

current 

logic 

to 

boolean 

The  logic  block  format  for  the  fisher 
node  is  updated  to  include  the  auxiliary 
criteria  block  if  the  logic  modification 
is  arbitrary  one-space,  arbitrary  two- 
space,  optimal  discriminant  plane  or 
boolean.  Otherwise,  upon  acceptance  of 
the  modified  fisher  logic,  the  criteria 
block  for  the  selected  pair  is 
altered. 

The  subroutine  "partial2"  is  used  to 
generate  a "mini"  confusion  matrix  that 
includes  the  selected  pair.  The  user  is 
asked  to  accept  or  reject  the  new  logic 
based  upon  the  information  contained  in 
this  confusion  matrix. 

pairmod  exits  by  calling  the  moos  sub- 
routine "pevpw"  which  displays  a con- 
fusion matrix  for  the  classes  present  at 
the  current  node. 


Flow  Chart : 
— 


See  following  page 
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Internal  Subroutine  Name: 


pairprogram 


Calling  Sequence: 


call  pairprogram  (i,  logicptr, 
nlnodes) 


Input  Parameters: 

i logic  node  number  with  pairwise 

logic  (fixed  (35)) 

logicptr  pointer  to  MOOS  logic  file  (ptr) 

nlnodes  number  of  logic  nodes  in  this 

logic  file 

Program  Description:  pairprogram  is  the  executive 

routine  for  generating  FORTRAN 
code  for  a pairwise  logic  node 
under  the  "fortlogc"  option  of 
MOOS 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Internal  Subroutine  Name:  pairwise_logic 

Calling  Sequence:  call  pairwise_logic  (lptr,  aptr, 

nptr,  dcptr,  erptr,  ndim,  cn, 
nnum,  In,  max,  cflag) 


Input  Parameters  : 

lptr 

aptr 

nptr 

dcptr 

erptr 

ndim 

cn 

nnum 


In 


■Pi  -j  t-r 

UJ.  XQ5 


ptr  pointer  to  mooslogic  file 

ptr  pointer  to  apriori  probability 

section  of  mooslogic  file 
ptr  pointer  to  current  logic  node 
in  mooslogic  file, 
ptr  pointer  to  the  vector  being 
* evaluated 

ptr  pointer  to  the  next  available 
entry  in  the  pair_error_file 
fixed  (35)  no.  of  dimensions 
fixed  (35)  current  logic  node  number 
128  fixed  (35)  array  of  indices  re- 
ferring to  the  table  of  class  names 
in  the  mooslogic  file.  If  i is  a 
logic  node  number,  nnum(i)  = index  to 
the  class  name  associated  with  i 
(128,  72)  fixed  (35)  If  i is  a pair- 
wise logic  node  number,  ln(i,  1)  = 
the  first  logic  node  number  beneath 
i,  ln(i,2)  = the  next  logic  node 
number,  etc. 

fixed  (35)  Usually  set  to  0.  If 
cflag  is  set  to  1,  pairwise_logic 
outputs  vote  counts  for  each  classi- 
fied vector  to  the  user  output 
stream. 


Output  Parameters : 

max  fixed(35)  The  vote  count  at  which  the 

vector  was  classified.  This  parameter 
is  used  by  partial  pairwise  evaluation 
(pevpw) . 

cn  fixed(35)  The  logic  node  number  to 

which  the  vector  is  assigned. 

Input  File  Settings:  The  word  pointed  to  by  "erptr"  in 

the  pair_error_f ile . Must  be  set  to 
the  logic  YiOde  number  of  the  true 
class.  The  next  word  in  this  file  must 
be  set  to  the  minimum  vote  count 
threshold . 
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Output  File  Settings : 


Program  Description : 


Flow  Chart : 


If  a vector  is  incorrectly  classified, 
tied,  or  rejected,  an  entry  is  created 
in  the  pair_error_f ile  for  that  vector. 

pairwise_logic  classifies  a given  vector 
using  the  information  stored  at  a 
pairwise  logic  node  in  a mooslogic 
file.  If  the  vector  is  misclassif ied , 
tied,  or  rejected,  an  entry  is  made  in 
pair_error_file.  See  Section  3.1  pair- 
wise logic  file  details  for  information 
concerning  pairwise  logic  evaluation. 


See  following  page 
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Internal  Subroutine  Name: 


partial2 


Calling  Sequence  : 

Luput  Parameters : 
type 


other 

Input  File  Setting : 
Program  Description : 


call  partial2  (type,  pairptr,  lptr, 
ndim,  ptrs , nodeno) 


integer  corresponding  to  modified  logic 

1 fisher 

2 arbitrary  two-space 

3 arbitrary  one-space 

4 optimal  discriminant  plane 

5 boolean 

see  "modi" 

The  "lbuff"  file  must  be  set  in 
appropriate  logic  file  format 

This  is  the  evaluation  routine 
called  by  all  of  "pairmod"’s  logic 
modification  routines.  The  para- 
meter "type"  determines  what  type 
of  evaluation  is  to  occur,  types  2 
and  4 are  evaluated  together,  all 
others  separately. 

For  fisher  logic,  each  vector  is 
projected  upon  the  fisher  direction 
and  its  location  with  respect  to  , 
the  thresholds  is  determined.  This 
data  is  tabulated  for  all  the 
vectors . 

If  the  modified  logic  is  arbitrary 
one-space,  the  data  is  projected 
upon  the  basis  vector,  and  similar 
to  fisher  evaluation,  its  position 
amongst  the  thresholds  is  stored. 

For  arbitrary  two-space  and  dis- 
criminant plane  logic,  the  sub- 
routine "plane_logic"  evaluates  each 
vector  and  returns  the  number  of  the 
node  it  was  classified  as 

For1  boolean  logic,  the  routine 
"logen"  creates  a program  from  the 
statement  and  compiles  it.  Then 
"boologic"  evaluates  each  vector. 


The  tabulated  data  is  then  presented 
as  a "mini"_confusion  matrix 
consisting  of  the  two  selected 
classes  and  control  is  returned  to 
the  calling  program. 


Flow  Chart: 

partial2 
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Internal  Subroutine 
Calling  Sequence: 
Input  Parameters: 
char 

length 

Output  Parameter: 
symbol 

Program  Description: 


Name : pc$add 

call  pc$add 


next  sequential  character  from 
input  program  (char  (1)  external 
static) 

number  of  characters  in  symbol 
(fixed  (35)  external  static) 


updated  next  symbol  (char  (132) 
external  static) 

pc$add  concatenates  the  current 
character  onto  "symbol" 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 


Internal  Subroutine  Name: 


pc$gnbc 
call  pc$gnbc 


Calling  Sequence: 
Input  Parameters: 
progptr 

iloc 

Output  Parameters: 
char 

Program  Description: 


pointer  to  input  FORTRAN 
program  (ptr  external  static) 

current  character  position  in 
the  input  program  (fixed  (35) 
external  static) 


next  non-blank  character  (char 
(1)  external  static) 

pc$gnbc  retrieves  the  next  non- 
blank character  from  the  input 
program 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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proaramDescr^ti^: 
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See  the  subroutine 

description  tiThe  operation 
of  this  subroutine. 


Internal  Subroutine  Name: 


pc$gns 
call  pc$gns 


Calling  Sequence: 
Input  Parameters: 
progptr 

iloc 


char 

Output  Parameters: 
symbol 

Program  Description: 


pointer  to  input  program  (ptr 
external  static) 

current  character  position  in 
the  input  program  (fixed  (35) 
external  static) 

next  input  character  (char(l) 
external  static) 


next  symbol  (char(132)  external 
static) 

pc$gns  retrieves  the  next  symbol 
from  the  input  program 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Internal  Subroutine  Name 
Calling  Sequence: 

Input  Parameters: 
nchars 


string 


oprogptr 


Program  Description: 


pc$psym 

call  pc$psym  (nchars,  string) 


number  of  characters  to  output 
(fixed  (35)) 


character  string  to  output  (char 
(132)) 


pointer  to  output  FORTRAN  program 
(ptr  external  static) 


pc$psym  outputs  a string  to  the 
output  FORTRAN  program 


See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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pconversion 
call  pconversion 


Internal  Subroutine  Name : 
Calling  Sequence: 


Input  Parameters: 
progptr 

oprogptr 

Program  Description: 


% 

' 

S i 


! 
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pointer  to  unformatted  FORTRAN 
program  (ptr  external  static) 

pointer  to  output  FORTRAN  program 
to  be  created  (ptr  external 
static) 

pconversion  converts  free-for- 
matted FORTRAN  into  card  image 
FORTRAN . 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Internal  Subroutine  Name: 


Calling  Sequence: 
Input  File  Settings : 


Output  File  Settings : 


Program  Description: 


Flow  Chart : 


pcos 

call  pcos 

"pcos"  expects  the  class  names 
in  words  D13i5i,  D1325]_,  D133?]_,... 
of  the  "csdata"  f ile , ’the"macro/ 
micro"  file  set,  and  the  projected 
data  as  determined  by  the  moos 
function  :probconf". 

The  "csdata"  and  possibly  "micro- 
buff" files  are  built  to  reflect 
the  current  histogram. 

This  routine  is  similar  to  "npcos" 
except  this  routine  is  only  called 
by  the  utility  function  "histgram" 
which  is  an  option  of  the  moos 
function  "probconf".  Therefore, 
"pcos"  is  the  display  generation 
program  of  "probconf"  while 
"npcos"  is  the  routine  for  all 
other  one-space  functions. 

Each  data  projection  file  corres- 
ponding to  the  classes  to  be  dis- 
played are  examined  and  the  maxi- 
mum probability  bin  of  all  dis- 
played classes  is  determined. 

If  a "macro"  type  display  is 
desired,  the  subroutine  "macroview" 
is  called  for  each  class  to  be 
viewed.  Otherwise,  the  "microbuff" 
file  is  created  and  filled  in  with 
the  appropriate  display  information 
(see"npcos")  and  "microview"  is 
called. 

The  program  exits  by  calling 
option. 

See  following  page 
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Internal  Subroutine  Name 
Calling  Sequence: 

Input  Parameters : 


cn 


ptrs 


Output  File  Settings: 


Program  Description: 


pevbx 

call  pevbx  (cn,  ptrs) 


fixed  (35)  logic  node  at  which 
closed  decision  boundary  logic  is 
being  created 


(5)  ptr 


ptrs (1) 
ptrs (2) 
ptrs (3) 
ptrs (4) 
ptrs (5) 


sysdata 

scratch 

display 

treename 

mooslogic 


pevbx  sets  the  temporary  symbols 
of  the  vectors  being  evaluated 
to  the  logic  node  number  to  which 
they  are  assigned. 


The  display  file  is  set  up  in  the 
conmatsm  display  file  format. 


pevbx  evaluates  closed  decision  boundary  logic  at  a 
closed  decision  boundary  logic  node.  The  results  of  the 
evaluation  are  presented  on  the  screen  in  confusion  matrix 
format . 


For  a more  detailed  description  of  the  operation  of 
pevbx,  see  the  program  listing  documentation. 


Internal  Subroutine  Name: 


pevgl 

call  pevgl ( cn , lptr) 


Calling  Sequence : 
Input  Parameters : 
cn 

lptr 

Output  File  Settings : 


Program  Description : 


fixed(35)  logic  node  at  which  logic 
is  to  be  evaluated 

ptr  pointer  to  mooslogic  file 

pevgl  sets  temporary  symbols  assoc- 
iated with  vectors  being  evaluated  to 
the  logic  node  numbers  at  which 
vectors  are  classified. 

If  a hardcopy  of  results  is  requested, 
an  output  file  called  eval_file  is 
created  where  results  are  stored  prior 
to  printout. 

pevgl  evaluates  group  logic  at  any 
group  logic  node  in  the  mooslogic 
file.  Types  of  group  logic  currently 
implemented  are  one-space,  two- 
space,  and  boolean.  The  results  of 
evaluation  are  presented  on  the  screen 
in  a confusion  matrix  format  listing 
assigned  logic  nodes  across  the  top 
and  true  classes  on  the  left-most 
column. 

The  user  has  the  option  of  outputting 
results  on  the  screen  and/or  detailed 
error  listings  to  the  printer. 


Flow  Chart : 


See  following  page 


Start 


group 
ic  boo 


Compile  booleap 
logic 


(Display  results 
of  evaluation  on 
the  screen 


Ask 

user  if  a de 
tailed  error  In 
iog  is  de^ 


Output  results 
iof  evaluation  & 
detailed  error 
listing  to  printer 


Return 


Internal  Subroutine  Name: 


pevnm 


Calling  Sequence : 
Input  Parameters: 
cn 

ptrs 

Output  File  Settings : 
Program  Description : 

Flow  Chart : 


call  pevnm( cn ,ptrs ) 


fixed(35)  logic  node  at  which 
logic  is  to  be  evaluated 

(5)  ptr  ptrs(l)  - sysdata 
ptrs(2)  - scratch 
ptrs(3)  - display 
ptrs(4)  - treename 
ptrs(5)  - mooslogic 

pevnm  sets  temporary  symbols 
associated  with  the  vectors  being 
evaluated  to  logic  node  numbers  at 
which  vectors  are  classified. 

The  display  file  is  set  up  in  the 
confusion  matrix  format  for  internal 
subroutine  conmatsm. 

pevnm  evaluates  nearest  mean  vector 
logic  at  a nearest  mean  vector  logic 
node.  Evaluation  results  are  stored 
in  confusion  matrix  form  and  pre- 
sented on  the  screen  by  conmatsm. 

The  user  may  then  elect  to  output 
the  confusion  matrix  and  a de- 
tailed error  listing  to  the  printer. 


See  following  page 
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Internal  Subroutine  Name : pevpw 

Calling  Sequence:  call  pevpw  C cn , ptrs) 


Input  Parameters : 
cn 

ptrs 

Output  File  Settings: 


fixed( 35) 


current  logic  node 


(5)  ptr  ptrs(l) 
ptrs ( 2 ) 
ptrs ( 3 ) 
ptrs ( 4 ) 


sysdata 

scratch 

display 

treename 


pevpw  sets  the  temporary  symbols  of 
the  vectors  being  evaluated  to  the 
logic  node  numbers  to  which  they  are 
classified. 


The  display  file  is  set  up  in  the 
conmatsm  display  file  format. 


Program  Description:  pevpw  evaluates  pairwise  logic  at  a 

pairwise  logic  node.  The  results  of 
evaluation  are  presented  on  the  screen 
in  confusion  matrix  format  and  the 
user  may  request  a detailed  error 
listing  to  be  printed. 


Flow  Chart : 


See  following  page 


Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters : 
cn 

nptr 

dcptr 

ndim 

Output  Parameters : 
cn 

Program  Description: 


plane_logic 

call  plane_logic  ( cn , nptr,  dcptr, 
ndim) 


fixed ( 35 ) 
ptr 

ptr 

fixed( 3 5 ) 


current  logic  node 

pointer  to  logic  block  in 
mooslogic  file 

pointer  to  a vector 

no.  of  dimensions 


fixed(35)  logic  node  to  which  the 
vector  is  assigned 

plane_logic  evaluates  a given  vec- 
tor for  one-space  or  two-space, 
group  logic 


_Ph_art : plane_logic 


Start 


I 


One  - 
('space  or  two^_ 
space?  ^ 


one-space 


Evaluate  the 
vector  using 
one-space  group 
i logic 


two-  space 

~ZZI_  n 

'Evaluate  the 
vector  using 
two-space  group 
logic 


f 


Return 


Internal  Subroutine  Name: 


plinguistic 


Calling  Sequence: 


call  plinguistic  (logicptr, 
pairptr,  reject) 


Input  Parameters: 
logicptr 
pairptr 

reject 


pointer  to  MOOS  logic  file  (ptr) 

pointer  to  the  logic  for  this 
pair  (ptr) 

reject  logic  node  number  (fixed 
(35)) 


Program  Description:  plinguistic  is  the  subroutine 

under  the  "fortlogc"  option  of 
MOOS  that  generates  FORTRAN  code 
for  a class  pair  that  uses 
linguistic  pairwise  logic 

See  the  subroutine ' s program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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pm_list 

call  pm_list  (type,  nthrsh , cp,  c2) 


The  integer  corresponding  to  the 
current  logic 

1 - Fisher 

2 - optimal  discriminant  plane 

3 - any  arbitrary  one-space 

4 - arbitrary  two- space 

5 - boolean 

number  of  thresholds  used  in  logic 
evaluation 

the  two-character  concatenation  of 
the  class  pair  display  symbols 


the  integer  corresponding  to  the 
logic  modification  desired 

The  current  logic  type  is  printed  and 
the  user  is  asked  to  select  the 
modification  desired.  This  input 
value  is  converted  to  a number  from 
1 to  10,  or  -1,  depending  on  the 
selected  logic  and  this  value  is 
returned  to  "pairmod"  for  use  in 
determining  which  logic  modification 
subroutine  to  call. 


See  following  page 


Print  current 
logic  type 


Print  the  9 
possible  logic 
options 


\ Return 


\ . 

Internal.  Subroutine  Name:  pm_list$option 


Calling  Sequence: 

Input  Parameters: 
ptrs 


mod  no 


pairptr 


Program  Description: 


call  pm  list$option  (ptrs,  mod_no, 

pairptrT 


an  array  of  5 pointers 


ptrs(l) 
ptrs ( 2 ) 
ptrs ( 3 ) 
ptrs ( 4 ) 
ptrs ( 5 ) 


pointer  to  top  of  "sysdata" 
file 

pointer  to  word  73  of  the 

"scratch"  file 

pointer  to  top  of  "display" 

file 

pointer  to  top  of  treename 
file 

pointer  to  top  of  logic  file 


logic  modification  number,  returned 
from  moos  subroutine  "pm_list" 

pointer  into  the  header  information 
for  the  desired  class  pair  in  the 
logic  block  of  the  selected  fisher 
node 


This  subroutine,  depending  upon  the 
value  of  the  parameter  "mod_no" , 
supplies  the  display  option  list 
present  at  the  upper  right-hand 
corner  of  the  screen  during  execution 
of  the  moos  function  "pairmod". 


After  the  user  inputs  the  number  of 
the  desired  display  option,  this 
value  is  interpreted  and  the  approp- 
riate moos  utility  function  is  called. 
The  user  will  remain  in 
"pm_list$option"  until  the  option 
number  for  "continue"  is  entered  and 
control  is  returned  to  "pairmod". 


Flow  Chart : 


See  following  page 


pm_list$option 


Start 


Present  display 
option  list  on 
right  side  of 
screen 


Perform  the 
desired  option 


Does 

input  value 
Correspond  Jr 
"continue1'' ? 


Return  to 
"pairmod' 


Internal  Subroutine  Name: 


ponespace 


call  ponespace  (logicptr, 
pairptr,  reject) 


pointer  to  the  MOOS  logic  file 
(ptr) 

pointer  to  the  logic  for  this 
pair  (ptr) 

reject  logic  node  number  (fixed 
(35)) 

ponespace  is  the  subroutine  in 
the  "fortlogc"  option  of  MOOS 
which  creates  FORTRAN  code 
for  a class  pair  that  uses  one- 
space  logic 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Internal  Subroutine  Name: 


Calling  Sequence: 


Input  Parameters 
logicptr 


lastlog 

ndim 


file 


Program  Description: 


preprocess 


call  preprocess  (logicptr, 
lastlog,  ndim,  file) 


pointer  to  the  MOOS  logic  file 
Cptr) 


the  last  logic  node  to  have  ever 
been  defined  (fixed  (35)) 


data  dimensionality  (fixed  (35)) 


the  name  of  the  FORTRAN  program 
being  created  (char  (168)) 


preprocess  is  the  subroutine 
in  the  "fortlogc"  option  of 
MOOS  which  performs  a preprocess 
of  the  entire  logic  tree  to 
dimension  variables,  create 
data  statements,  and  perform 
other  initialization  procedures 
for  the  FORTRAN  program  to  be 
defined 


See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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MOOS  Function  Name: 
MOOS  Function  Number: 
Calling  Sequence: 
Input  Parameters: 

Output  File  Settings: 


Program  Description: 


Flow  Chart : 


probconf 

28 

Type  in  "probconf  [(treename)]  [(nodename)] 

Standard  optional  data  set  selection 
parameters 

The  display  file  is  set  up  in  the  rank- 
order  display  format.  In  addition,  a 
histogram  file  is  produced  for  each  data 
class  in  the  selected  data  set.  These 
files  are  named  as  follows:  pc  ||  tree 

character |J  data  class  file.  (see  below  for 
details)  The  histogram  files  are  des- 
cribed in  more  detail  in  section  3.1. 

probconf  is  a measurement  evaluation 
routine  which  produces  a standard  rank 
order  display  of  the  measurements  in  the 
selected  data  set. 

probconf  allows  the  user  to  choose 
between  an  interval  range  based  on  a 
number  of  standard  deviations  from  the 
mean,  or  the  absolute  range  of  the  data. 

The  user  also  has  control  over  the  no. 
of  bins  contained  in  the  interval  range. 

The  original  number  of  bins  is  selected 
in  the  same  manner  as  is  done  by 
ss$displayl  for  one-space  plots. 

The  routine  bases  the  evaluation  on 
histogram  approximations  of  the  pro- 
bability functions  of  the  data  classes. 

See  following  page 
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probconf 


Is  the''  ^ 
elected  no< 
a lowest 
^-node  V"" 


Ask  user  to 
select  method 
for  determining 
the  interval  ran 


Display  a table 
containing  info 
about  interval  sh 
& range  for  each 
measurement 


Create  histogram 
file  & set  up  dis- 
play file  in  rank 
order  format 


rnk$oall 


Return 


pc  | tree  character .,  data  class  File  Format 


3*ndim 

3*ndim+l 


3*ndim+  (nbin*ndim) 


where , 


HI  (1 ) 
H2(l ) 
H3(l) 


HI  (ndim) 
H2(ndim) 
H 3 (ndim) 
H4(l,  1) 


H4(nbin,  1) 
H4(l , 2) 


H4(nbin,  ndim) 


nbin  = number  of  bins 
ndim  = number  of  dimensions 
HI  = number  of  bins  for  each  measurement 
H2  = lower  bound  of  the  interval  range  for  each 
measurement 

H3  = upper  bound  of  the  interval  range  for  each 
measurement 

H4  = histogram  data(all  counts  are  divided  by  the 
total  number  of  vectors,  therefore  can  be 
considered  probabilities. 


4-433 


Internal  Subroutine  Name: 


ptwospace 


call  ptwospace  (logicptr,  pairptr, 
reject) 


pointer  to  MOOS  logic  file  (ptr) 

pointer  to  logic  for  this  pair 
(ptr) 

reject  logic  node  number  (fixed 
(35)) 

ptwospace  is  the  subroutine  in 
the  "fortlogc"  option  of  MOOS 
which  is  the  executive  for 
creating  FORTRAN  code  for  a 
two-space  projection  in  a pair- 
wise node. 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation  of 
this  subroutine. 


« 


Internal  Subroutine  Name: 
Calling  Sequence: 


Input  Parameters: 


ptwospace$two 

call  ptwospace$two  (logicptr, 
pairptr , reject) 


logicptr 


reject 


Program  Description: 


pointer  to  MOOS  logic  file  (ptr) 

pointer  to  logic  for  this  class 
pair  (ptr) 

reject  logic  node  number 

ptwospace$two  is  the  subroutine 
in  the  "fortlogc"  option  of 
MOOS  which  creates  FORTRAN 
code  for  any  two-space  projection 
in  a pairwise  node 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Internal  Subroutine  Name:  pwfisher 


Calling  Sequence : 


call  pwfisher  (critptr,  numdim, 
numbound , ifile) 


Input  Parameters: 


critptr 


pointer  to  logic  block 


numdim 


number  of  dimensions 


numbound 


ifile 


value  contained  in  third  quarter  of 
first  word  in  logic  block 

output  file  name 


Program  Description : 


Flow  Chart: 


pwfisher  outputs  the  fisher 
coefficients,  the  discriminant 
coefficients,  the  five  thresholds 
available,  and  the  (numbound) 
threshold(s)  used  for  a fisher  pair 


f X 

Start 

y 

V 

Output  coeffi- 
and  threshold 
information 

r~ 


Return 


Internal  Subroutine  Name: 


pwlogic 


Calling  Sequence:  call  pwlogic  (fileptr,  optfile, 

numdim , dex,  nodes.  Inn,  lcc, 
if ile) 


Input  Parameters : 
fileptr 
optfile 
numdim 
dex 
nodes 

Inn 

lcc 


if  ile 

Program  Description: 


Flow  Chart: 


pointer  to  moos  logic  file 
pointer  to  option_file 
number  of  dimensions 
index  to  logic  block 

array  (72)  of  4 character  node  names 
at  node 

array  (72)  of  lowest  logic  nodes 

array  (72)  of  4 character  node  names 
of  class  at  lowest  node  (parallel 
to  Inn) 

output  file  name 

pwlogic  unmasks  the  first  word  of  the 
pairwise  logic  block  and  outputs  the 
minimum  vote  count.  Then,  for  each 
pair  of  classes,  pwlogic  performs 
the  following:  unmasks  the  first 

word  for  the  pair,  outputs  the  logic 
type  for  the  pair  and  the  option 
creating  the  logic,  unmasks  the 
second  word,  calls  the  apppropriate 
subroutine  (nmvlogic,  pwfisher, 
gpdiscrim,  gponespace,  or  gpboolean) 
to  output  the  appropriate  values.  If 
the  subroutine  is  a gp  routine,  the 
first  word  of  the  auxiliary  block  is 
unmasked,  and  the  classes  correspond- 
ing to  each  side  of  the  boundary  are 
printed.  The  classes  are  obtained 
by  calling  to  pwlogic$cs. 

Finally,  pwlogic  outputs  to  the  next 
logic  node  in  sequence  depending  on 
the  decision  made  at  the  node. 

See  following  page. 
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pwlogic 


Unmask  first  word  for  j 


Output  logic  type,  option 
ere ating  logic  for  pair s 


Unmask  second  word 
for  pair 


'Set  pointer  to  logic 
blocks  for  pair 


Call 

pwfisher 


Call 

nmv  logic 


Call 

pwlogic$cs 


Output  class  on 
numerically 
greater  side  of  ! 
middle  threshold; 


Output  nodes 
for  decisions 
for  class. 


R eturn 


Unmask  first 
word  of 

auxiliary  block 


Call 

gpboolean 


Call 

gpdiscrim 


Call  pwlogic$cs  1 
for  convex  side  of 
each  boundary  ex- 
icess  region,  out- 
put data  classes 


Call  pwlogic$cs 

Call  pwlogic$cs 

Ifor  rightmost. 

for  true,  false 

leftmost  output  j 

output  data  classes 

data  classes 

cla  sse  s 

1 

internal  Subroutine  Name: 


pwlogic$cs 

call  pwlogic$cs  (m,  LI,  L2,  L3,  nl) 


: ' 


i 


i 


Calling  Sequence : 
Input  Parameters : 
m 

LI 
L 2 


L 3 

^utput  Parameter : 
Program  Description : 


Flow  Chart : 


index  of  L 3 to  be  matched 

array  (72)  of  lowest  logic  nodes 

array  (72)  of  4 character  node  names 
of  class  at  lowest  node  (parallel 
to  LI) 


array  (3)  of  node  numbers 


nl-class  at  logic  node  L3(m) 


pwlogic$cs  searches  the  1 array 
value  of  L3(m).  When  this  value  is 
found,  the  corresponding  data  class 
name  in  array  L2  is  returned  in  nl. 


i, 


i 


See  following  page 


utility  Function  Name: 


Calling  Sequence: 


Program  Description: 


Flow  Chart: 


rdisplay 

type  in  "rdisplay" 

rdisplay  regenerates  the  most  recent 
two-space^  one-space,  or  confusion 
matrix  display  through  calls  to 
clusscat,  npcos,  or  displacm. 
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Utility  Function  Name: 
Calling  Sequence: 

Input  Parameters: 
Output  File  Settings: 

Program  Descripti on: 


Flow  Chart: 


reasname 

Type  in  "reasname  j(treename)  (nodename)  " 

Standard  optional  data  set  selection  parameters 

reasname  changes  "reassociated"  names  in  the 
moos  logic  file. 

reasname  displays  a table  containing  lowest 
logic  node  numbers,  original  logic  design 
names  and  reassociated  names . The  user 
may  then  change  any  reassociated  names. 

The  routine  redisplays  the  table  and  allows 
corrections.  When  the  user  is  satisfied, 
the  reassociated  names  in  the  moos  logic  file 
are  changed  and  the  routine  exits. 

See  following  page. 
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Internal  Subroutine  Name : 


rectangle 


Calling  Sequence: 

Input  Parameters: 
logicptr 
nodenum 

index 


ndim 

Program  Description: 


call  rectangle  (logicptr, 
nodenum,  index,  ndim) 


pointer  to  MOOS  logic  file  (ptr) 

node  number  of  logic  having  the 
hyperrectangle  (fixed  (35)) 

index  from  beginning  of  logic 
file  to  logic  for  this  region 
(fixed  (35)) 

data  dimensionality 

rectangle  generates  FORTRAN  code 
for  a hyperrectangular  region  of 
a closed  decision  logic  node 
under  the  "fortlogc"  option  of 
MOOS 

See  the  subroutine's  progiam 
listing  for  a more  detailed 
description  of  the  operation  of 
this  subroutine. 


Utility  Function  Name: 
Calling  Sequence: 


redraw 


* 


•: 


Input  File  Settings: 


Program  Description: 


Flow  Chart: 


type  in  "redraw" 

Either  two-space  or  one-space  display 
files  must  be  set  up  and  boundaries 
must  exist. 

redraw  reconstructs  a boundary (or 
boundaries)  which  the  user  has  drawn 
after  a new  display  has  been  put  up. 

redraw  contains  five  short  subroutines 
in  the  form  of  entry  points  to  perform 
certain  tasks : 

redraw$xint  returns  the  intersection 
point  of  any  line  with  a given 
horizontal  line. 

redraw$yint  returns  the  intersection 
point  of  any  line  with  a given 
vertical  line. 

redraw$line  draw  scales  the  calculated 
pro-lection  plane  coordinates  to 

tektronix  coordinates  and  calls 
multeks$line  to  draw  lines. 

redraw$pl  extends  the  first  segment  in 
a boundary  to  the  edge  of  the  screen. 

redraw$p2  extends  the  last  segment  in 
a boundary  to  the  edge  of  the  screen. 

See  following  page 
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treename 


'all' 


Output  File  Settings : 
tables 


segments 


Program  Description : 


specify  a particular  data  set 


perform  operation  for  all  data  sets  in 
"trandata" . 


trandata's  "seg_o_trees"  will  be 
reduced 


trandata's  "structure"  will  be 
reduced 


This  routine  calls  s_p$trem  and 
returns  control  to  the  user.  The 
files  "se-g_o_trees"  and  "structure" 
will  reflect  the  deletions  of  data 
sets . 
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Utility  Function  Name:  restore 

Calling  Sequence:  type  in  "restore(treename/"all" )" 

Input  Paramenters : 

treename  specify  a particular  data  set 

"all"  perform  operation  for  all  data  sets 

in  the  user's  directory,  "saved_trees" 

Output  File  Settings:  The  "sysdata"  file  is  updated  to 

reflect  the  new  additions. 

Program  Description:  The  program  calls  s_p$trst  and  re- 

turns control  to  the  user. 
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Utility  function  Name: 
Calling  Segue ncej_ 

Input  Pa rameters : 
treename 


restorec 

type  in  "restorec(treename/"all" ) " 

specify  a particular  data  set 

perform  operation  for  all  data  sets 
in  "trandata". 

The  "sysdata"  file  is  updated  to 
reflect  the  new  additions. 

This  routine  calls  s_p$tout  and 
returns  control  to  the  user. 


a 


. ...  i 


Utility  Function  Name: 
Calling  Sequence : 


restruct 


type  in  "restruct  [ ( treename ) ] " 


I 


1 


L 


Input  Parameters : 
treename 

Input  File  Settings: 


Output  File  Settings: 
dataclass  files  : 


treename 

sysdata 


char(8)  treename  of  displayed  data  set 

display  and  csdata  must  be  set  up  for 
a one  or  two  space  plot  and  at  least 
one  boundary  must  have  been  placed  in 
the  data  file 


Two  or  three  new  data  class  files  are 
created  (depending  on  the  no.  of 
boundaries).  If  there  are  no  errors, 
the  old  data  class  file  is  deleted. 

Mean  and  covariance  entries  are  added 
for  each  new  data  class. 

sysdata  is  adjusted  to  reflect  the  new 
tree  structure. 


display 
rest  file 

csdata 

Program  Description: 


The  display  file  is  modified  for 
reprojecting  the  split  classes. 

A temporary  file  named  "rest_file"  is 
created  in  the  user's  process  directory 
as  a buffer  area. 

projection  coordinates  are  moved  to  match 
the  new  data  class  structure. 

If  the  display  is  one-space,  restruct 
calls  internal  subroutine  ros  to 
restructure  the  data  class. 

If  the  display  is  two-space,  restruct 
presents  a list  of  data  classes  displayed 
and  asks  the  user  to  choose  one. 
restruct  then  asks  the  user  to  input  2 
or  3 unique  four  character  node  names. 

New  data  class  files  are  then  created 
and  the  vectors  of  the  data  set  being 
divided  are  sorted  according  to  the 
drawn  boundaries. 


i 
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If  any  new  data  class  contains  no 
vectors,  restruct  will  present  an  error 
message  and  exit. 


restruct  will  not  divide  a class 
correctly  if : 

(1)  any  boundary  is  not  convex 

(2)  the  so-called  "convex  point"  is  not 
on  the  convex  side  of  a boundary 

(3)  two  boundaries  intersect  within 
the  range  of  the  vectors  being 
separated. 

restruct  utilizes  two  internal  entry 
points : 

restruct$side  - evaluates  the  equation 
of  a line  for  any  point  and  returns 
the  sign  of  the  result 

restruct$mncv  - computes  mean  and 
covariance  values  for  the  new  data  class 
files 

If  restruct  is  called  from  a nlm  display, 
and  if  this  display  was  the  result  of 
a data  reduction  or  clustering  algorithm, 
cl_restruct  is  called.  cl_restruct 
moves  the  restructuring  of  the  displayed 
data  set  to  the  original  data  set,  i.e., 
both  trees  are  structured  based  on  the 
boundary(s)  drawn  on  the  projection  of 
the  clustered  tree. 


Naming  Convention: 


Case  II  — 


Case  I - one  boundary.  The  first  name  given  will  be 

assigned  to  the  class  on  the  convex  side.  The 
second  name  will  go  to  the  concave  side. 

Case  II  - two  boundaries.  The  first  name  will  be  assigned 
to  the  class  on  the  convex  side  of  the  first 
boundary  drawn.  The  second  name  will  be 
assigned  to  the  class  on  the  convex  side 
of  the  second  boundary  drawn.  The  third  name 
will  go  to  the  remaining  region. 

Two  convex  points  should  never  fall  within  the  same  region; 

however,  restruct  should  function  correctly  if  this  case  occurs. 

The  naming  convention  will  not  apply  in  this  event. 


Flow  Chart: 


See  following  page, 
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Utility  Function  Name:  rnk$bcls 

Calling  Sequence:  type  in  "rnk$bcls  (classname)" 

Input  Parameter: 


classname  either  the  entire  name  of  the  class  to 

be  ranked  or  the  unique  class  symbol 
for  that  class  to  be  ranked 


Input  File  Setting: 


a rank  order  display  file  format  is 
expected 


Program  Description: 


Flow  Charts 


"rnk$bcls"  ranks  an  entire  class  by 
measurement  as  a result  of  discrim 
measure  or  probability  of  confusion. 
It  extracts  D(xp)  for  the  selected 
class  from  the  al4  portion  of  the 
display  file  and  places  it  in  dl2. 

It  then  sorts  and  prints  out  the 
sorted  data. 

See  following  page 
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Utility  Function  Name:  rnk$bycp 


Calling  Sequence: 
Input  Parameters: 

classl,  class2 

Input  File  settings : 
Program  Description: 


Flow  Chart : 


Type  in  "rnk$bycp(classl , class2)" 


The  entire  name  or  the  unique  class 
symbol  of  the  class  pair  to  be  ranked. 
For  example,  to  rank  class  pair  (A,B), 
the  user  would  enter  "rnk$bycp  A B". 

assumes  rank  order  display  file  format 

"rnk$bycp"  ranks  a class  pair  by 
measurement  as  a result  of  discrim 
measure  or  probability  of  confusion. 

It  extracts  D(Xp)  for  the  selected 
class  pair  from  the  dl5  portion  of  the 
display  file  and  places  it  in  dl2. 

It  then  sorts  and  prints  out  the  sorted 
data. 

See  following  page 
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Utility  Function  Name: 


rnk$mbc 

Type  in  "rnk$mbc (measurement  number)" 


Calling  Sequence: 
Input  Parameter: 

Input  File  Setting: 
display 

Output  File  Settings : 
Program  Description: 


"measurement  number"  is  the  measurement 
to  be  ranked  by  class 


assumes  rank-order  display  file  format 

it  creates  a file  called  "displaya" 
to  sort  the  classes.  The  format  of 
"displaya"  is  described  elsewhere. 

"rnk$mbc"  prints  out  a class  ranking 
of  the  selected  measurement.  The 
selected  measurement  of  each  class 
is  stored  in  file  "displaya"  along 
with  the  class  name.  The  file  is 
then  sorted  and  printed  out. 


Flow  Chart : 


Next  page. 


Utility  Function  Name: 


rnk$mbcp 

Type  in  "rnk$mbcp (measurement  number)" 


1 


' 

‘ 

I 

i 


Calling  Sequence: 
Input  Parameter: 

Input  File  Setting: 
display 

Output  File  Setting: 
Program  Description: 


Flow  Chart : 


"measurement  number"  is  the  measure- 
ment to  be  ranked  by  class  pair 


assumes  rank-order  display  file 
format 

it  creates  a file  called  "displaya" 
to  sort  the  class  pairs.  The  format 
of  "displaya"  is  described  elsewhere. 

"rnk$mbcp"  prints  out  a class  pair 
ranking  of  the  selected  measurement. 
The  selected  measurement  of  each 
class  pair  is  stored  in  "displaya" 
along  with  the  class  pair  name. 

The  file  is  then  sorted  and  printed 
out . 


Next  page 


rnk$mbcp 


Get  ndim  from 
display 
file 


1 measno 
\ * ndim?  . 


Get  ncls  from 


Return 


Set  word  1 of  dis 
play  to  1 in  uppei 
half  & 2 in  lower 


Internal  Subroutine  Name: 


i 


i 


Calling  Sequence: 
Input  Parameters: 
ptr 

Input  File  Settings: 
displaya 

Program  Description: 


Flow  Chart: 


i 


rnk$meas_print 

call  rnk$meas_print(ptr ) 


a ptr  to  the  top  of  file  displaya 

assumes  "displaya"  has  been  set  up 

"rnk$meas_print"  prints  out  displaya 
as  a result  of  "rnk$mbc"  or 
rnk$mbcp."  If  more  than  one  page 
of  information  exists,  this  routine  is 
entered  repeatedly. 

Next  page 


4-466 


hi 


1 . 


Utility  Function  Name 


rnk$oall 


Calling  Sequence:  type  in  "rnk$oall" 

Input  File  Settings:  "rank$oall"  expects  the  display 

file  to  be  set  up  as  in  the  Rank 
Order  display  file  format  with  the 
exception  of  D7  - D12,  which  is  .he 
work  area  for  this  and  several  other 
discrimination  measurement  programs 
(rnk$sort_out , rnk$printout , rnk$hcls, 
rnk$bycp,  sel$meas,  sel$thrs,  etc.) 

Program  Description:  "rnk$oall"  first  checks  the  first  word 

of  the  display  file.  If  0 or  2 , it 
then  gets  the  sort  order.  If  the 
sort  order  is  descending,  it  then 
finds  the  class  and  class  pair  which 
has  the  largest  value  for  each 
measurement.  If  the  sort  order  is 
ascending,  it  then  finds  the  class  and 
class  pair  which  has  the  smallest  value 
for  each  measurement.  In  both  cases, 
the  D8 , D9 , and  DIO  entry  are  filled 
in  with  the  respective  information. 

It  then  sorts  the  D13  entry  of  the 
display  file  in  the  given  sortorder 
and  prints  out  the  associated  measure- 
ment number  for  each  value,  the  value, 
the  class,  and  the  class  pair  for  each 
measurement . 

If  the  first  word  of  the  display  file 
is  other  than  0,  it  just  sorts  the  D13 
entry  of  the  display  file  in  the  given 
sortorder  and  prints  out  the  assoc- 
iated measurement  number  for  each  value, 
the  value,  the  class,  and  the  class  pair 
for  each  measurement. 

In  general , the  routine  gives  an 
overall  ranking  as  a result  of  a 
discrim  measure  or  probability  of 
confusion. 


Flow  Chart : 


Next  page 


Internal  Subroutine  Name: 


rnk$page 
call  rnk$page 


Calling  Sequence: 
Input  File  Settings : 

Program  Description: 


assume  display  and/or  displaya 
have  been  set  up 


rnk$page  displays  the  next  page 
of  information  as  a result  of  some 
ranking  routine 


Flow  Chart : 


rnk$page 


Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters: 
d7  7ptr 

dlllptr 

init 

last 

type  - = 1 

t 1 

Input  File  Settings  : 

Program  Description: 


Flow  Chart : 


rnk$printout 

call  rnk$printout  Cd77ptr, 
dlllptr,  init,  last,  type; 


a pointer  to  the  d7  portion  of  the 
display  file 

a pointer  to  the  dll  portion  of 
the  display  file 

the  initial  element  to  print 

the  last  element  to  print 

implies  an  overall  ranking 
other 

rnk$printout  assumes  a rank  order 
display  file  format 

"rnk$printout"  prints  information 
from  the  dll  portion  of  the  dis- 
play file.  Printing  starts  from 
entry  dllinit  through  dlliast. 
Corresponding  entries  in  the  d7 
portion  of  the  display  file  are 
also  printed.  This  is  the  entry 
that  formats  the  information  for 
printing.  Up  to  2 columns  and 
25  lines/column  of  information  is 
printed . 

Next  page. 


> 
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Internal  Subroutine  Name:  rnk$sort  out 


Calling  Sequence : 


Input  Parameters : 


dlllptr 


call  rnk$sort_out  (dlllptr, 
sort,  dim) 


a pointer  to  the  dll  portion  of 
the  display  file 


sort 


dim 


Input  File  Settings : 


Program  Description : 


order  of  sorting  0 - ascending 

1 - descending 

dimensionality  of  data 

rnk$sort_out  assumes  the  display 
file  is  set  up  as  in  the  rank 
order  display  file  format 

"rnk$sort  out"  sorts  the  dll,  dl2 
portion  o?  the  display  file  in 
the  given  sortorder.  Sorting 
is  done  using  the  shuttle  inter- 
change method  of  sorting. 


Flow  Chart : 


Next  page. 


Internal  Subroutine  Name: 


ros 


Calling  Sequence : 
Input  File  Settings : 


Output  File  Settings : 


Program  Description : 


i 

I 

I 


- * 


1 


call  ros 

The  words  D14  of  "csdata"  must  be 
set . 

The  "sysdata"  file,  tree  name  file, 
and  data  class  files  are  adjusted  to 
reflect  the  restructuring  that 
occurred . 

Upon  verification  of  the  existence 
of  boundaries,  the  user  inputs  the 
name  of  the  class  he  wishes  to 
restructure.  Either  2 or  3 new  class 
names  are  then  entered,  depending 
upon  the  number  of  thresholds 
(nbndy),  either  1 or  2.  Then, 
nbndy  new  data  class  files  and  buffer 
areas  are  created.  Each  projected 
vector  is  passed  against  the  thres- 
holds and  the  determination  of  which 
new  class  it  is  a member  of  is  made. 
The  buffer  areas,  which  exist  for 
the  reading  of  the  "display"  file  and 
which  contain  the  appropriate 
projected  vectors,  are  also  updated. 

After  all  vectors  are  examined,  these 
buffer  areas  replace  the  projected 
data  of  the  newly  restructured  class. 
The  4 word  section  of  "csdata"  which 
holds  unique  class  information  is 
modified  to  show  the  existence  of  the 
new  classes. 

The  tree  structure  in  "sysdata"  is 
then  made  and  the  tree  name  file  is 
altered  to  include  the  means  and 
covariances  of  the  new  classes. 

This  program  exits  by  calling  the 
one-space  display  routine  "npcos". 


See  following  page 
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Internal  Subroutine  Name 

s_p 

Output  File  Settings: 

The  specified  trees  are  either  saved 
restored  or  deleted.  In  general, 
the  different  entry  points  are 
adjusting  one  or  more  of  the  follow- 
ing directories  and  tables; 

user's  "saved  trees" 

accessed  through  "save,  "restore", 
"cleartree" 

user's  "seg  o trees" 

user's  "structure" 

trandata's  "saved  trees" 

accessed  through  "savec" 
"restorec",  and  "remtree" 

trandata's  "seg_o_trees" 

trandata's  "structure" 

"sysdata" 

accessed  through  "deletree" 

General  Description: 

This  is  an  overview  of  "s  p"  with 
discussions  of  the  specific  entry 
points  following.  The  different 
entry  points  are  called  by  the 
utility  functions:  "save",  "restore" 
"savec",  "restorec"  , "cleartree", 
"remtree",  and  "deletree".  The 
following  diagram  shows  the  destinations 
of  the  trees  involved  for  each  specific 
function. 

Flow  Cha'-t : 

See  following  page 

4-478 


The  entry  points  "s_p$tsave"  and  "s_p$tin"  are  very 
similar,  the  difference  is  the  destination  of  the  saved 
tree.  The  entry  points  "s_p$trst"  and  "s_p$tout" 
also  differ  only  in  the  source  of  the  returning  tree. 
The  location  of  the  tree  to  be  deleted  is  the  distinc- 
tion between  "s_p$tclr"  and  "s_p$trem"  while 
"s_p$tdel"  stands  alone. 

The  table  "structure"  consists  of  the  forest  and 
school  entries  of  "sysdata"  while  the  "seg  o trees" 
format  is  as  follows: 


1 
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Program 

Descriptions: 


The  data  class  names  are  saved  as  12  character 
filenames  ( treename  nodename  ) while  the 

tree  name  files  are  stored  with  the  same  name  or 
a unique  name,  if  the  real  name  already  exists  in 
seg_o_trees. 

s_p$tsave:  This  routine  saves  a tree  in  the  user's 

"saved_trees"  directory.  This  directory  is  created 
if  it  does  not  exist.  For  each  tree  to  be  saved,  the 
directory  "seg_o_trees"  is  examined  for  any 
occurrence  of  a duplicate  tree  name. 

If  one  is  found,  an  error  message  is  printed  and  the 
user  is  asked  to  input  a new  name.  This  will  be  the 
storage  name  of  the  tree.  The  tree  name  files  and 
data  class  files  are  then  copied  into  saved  trees. 

The  structure  of  the  tree,  in  "sysdata"  is  then 
copied  into  the  "structure”  file  in  "saved  trees" 
with  the  order  of  storage  in  the  following~tree 
diagram  being:  5,  9,  10,  6,2,  3,  7,  8,  4,  1 


1 


Control  is  then  returned  to  the  calling  utility 
function  "save". 

I 

s_p$tin:  The  execution  of  the  program  is  the 

same  as  "s_p^>tsave"  except  the  data  is  stored  in 
" >-udd  > olpars  > common>trandata"  instead  of  the 
user's  "saved  trees". 
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s_p$trst:  This  routine  returns  a tree  from  the  user's 
"saved_trees"  directory  to  the  process  directory. 

For  each  tree  being  restored,  "sysdata"  is  examined 
for  existing  trees  with  a duplicate  name.  If  this 
happens,  the  user  is  asked  to  .return  the  tree  under 
a unique  8 character  name.  * 

The  tree  names  and  node  names  are  copied  back  into 
the  process  directory.  The  structure  of  the  tree  is 
obtained  from  the  "structure"  file  and  the  restoring 
of  the  nodes  is  done  in  the  same  fashion  described  in 
"s_p$tsave". 

s_p$tout:  The  flow  of  the  program  is  the  same  as 
s_p$tr st"  except  that  in  "restorec",  the  trees  are 
returned  from  "trandata",  the  common  access 
directory. 

s_p$tclr:  This  program  allows  a user  to  delete 

a tree  structure  existing  in  his  "saved  trees" 
directory.  The  stored  tree  name  and~data  class 
files  are  removed  and  the  "structure"  file  is 
altered  to  show  this  deletion.  The  "seg  o trees" 
file  is  then  compacted  and  control  is  returned  to  the 
utility  function  "cleartree". 

s_p$trem:  This  is  identical  to  "s_p$tclr"  except  that 

the  tree  is  deleted  from  the  "trandata"  directory. 

s_p$tdel:  This  routine  allows  the  user  the  capability 
of  deleting  an  existing  tree  in  his  process  directory. 

The  routine  "Inodes"  is  used  to  return  an  array  of 
lowest  nodes.  Through  this  list  the  data  class  files 
are  deleted.  Then  the  routine  "getclass"  is  used  in 
initializing  the  information  of  "sysdata"  that  per- 
tains to  the  deleted  tree. 

Flow  Chart : See  following  page 
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Update 
seg_o_tree  s 


Create  structure 
in  wdir 


Go  to  next 
lowest  level 


L(depth,  K)  = 
rel(pointer  in 
structure) 


Copy  forest 
entry  into 
structure 

l __l 

— 


^ yes 

Fill  in 

css 

. 

r 

Determine  name 
of  tree  to  delete 


Adjust  css 
if  necessary 


Call  Inodes  to 
get  array  of 
nodes  & array 
of  lowest  nodes 


Delete  data  das 
file  for  lowest 
nodes 


.-Other^ 
:rees  to  be 
'''deleted? 


Go  through  sysdata 
& initialize  all 
pertinent  slots  to 
["notatree", 
i"nono",  0 


Return 


Utility  Function  Name:  save 


Calling  Sequence: 
Input  Parameters : 


treename 


Output  File  Set tings : 
Directory 


Tables 


Segments 


Program  Description: 


type  in  "save ( treename/ "all" ) " 


specify  a particular  data  set 

perform  operation  for  all  data  sets  in 
"sysdata" 


user's  "saved_trees"  will  be  expanded 

user's  "seg_o_trees"  will  be  expanded 

user's  "structure"  will  be  expanded 

This  routine  calls  s_p$tsave  and  re- 
turns control  to  the  user.  The 
appropriate  entries  are  made  in 
"seg  o_trees"  which  acts  as  a directory 
and  Ts  referenced  by  the  program 
"s  p".  As  named,  the  segment  "structure" 
which  is  similar  to  "sysdata",  contains 
the  structure  of  the  saved  data  set. 
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Utility  Function _Name : 
Calling  Sequence: 

Input  Parameter s_: 
treename 
"all" 

Output  File  Settings: 
tables 

segments 

Program  Description : 


type  in  "savec ( treename/"all" ) " 


specify  a particular  data  set 

perform  operation  for  all  data  sets 
in  "sysdata" 


trandata's  "seg  o_trees"  will  be 
expanded 

trandata's  "structure"  will  be 
expanded 

This  routine  calls  s_p$tin  and  returns 
control  to  the  user.  The  appropriate 
entries  are  made  in  "seg_o_trees" 
which  acts  as  a directory  as  is 
referenced  by  the  program  "s  p" . 

The  segment  "structure",  which  is 
similar  to  "sysdata"  is  updated  to 
reflect  the  new  addition(s). 


scale$rt 

type  in  "scale$rt" 

words  D8^  -08^  of  the  two-space 

"display"  file  format  are  adjusted  to 
reflect  the  new  display. 

scale$rt  copies  words  D5J-D54  of  the 
"display"  file,  the  "original"  data 
range,  into  words  D81  -D84,  the 
"current"  data  range.  The  program 
exits  by  calling  "clusscat". 


ecale$rt 
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Utility  Function  Name : 

Calling  Sequence : type  in  "scale$zm" 

Output  File  Settings:  Words  D8 , -D84  of  the  two-space 

"display"  file  format  are  adjusted 
to  reflect  the  new  bounds  of  the  plot 

The  subroutine  "multe ks$read_xhair  is 
used  twice  to  select  new  low"er-left 
and  upper-right  hand  corners  of  the 
display.  These  new  tektronix  points 
are  converted  to  data  values  with 
respect  to  the  current  display  by  the 
following  formulas: 

new_x  = ( (x-120 ) /7 24* (xmax-xmin)  + xmin 

new_y  = ( (y- 53 ) / 680 )* (ymax-ymin)  + ymin 

The  new  data  ranges  replace  the 
"current"  data  range  values  in  the 
"display"  file  and  "clusscat"  is 
called  to  display  the  new  plot. 

Flow  Chart : See  following  page 


Program  Description: 


4-494 


sel$thrs 


Utility  Function  Name: 
Calling  Sequence: 

Input  Parameter: 
value 

Input  File  Setting: 
Program  Description : 

Flow  Chart: 


type  in  "sel$thrs  (value)" 


threshold  value 

assumes  rank  order  display  file  format 

If  sortorder  is  descending,  given  a 
threshold  value,  "sel$thrs"  puts  an 
in  d7  for  each  measurement  whose 
associated  current  value  is.?  the 
given  threshold  value. 

next  page 
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i -f  ndim  ? 


current 
< value? 


rnk$printout 


Return 


Current 


5 ndim? 


Current 
. ^ value  V 


true 


Call 

rnk$printout 
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User  Utility  Function:  select 

Calling  Sequence:  type  in  "select( [macro/micro]  [class- 

list]  [cr]  [cbxxx]  [prob/count] ) " 


Input  Parameter  Settings : 


macro/micro 

classlist 

cr 

cbxxx 

prob/count 

Output  file  Settings: 
Program  Description: 


Flow  Chart: 


."macro"  change  to  macro  display 

micro  change  to  micro  display 

class  symbols  of  nodes  to  be  dis- 
played 

change  range 

change  no.  of  bins  to  xxx 

"prob"  change  scaling  to  probab- 
ilities 

"count"  change  scaling  to  counts 

adjust  necessary  values  and  flags 
in  "csdata"  file  to  accomplish  new 
display 

select  is  the  major  one-space  display 
modification  program.  It  first  calls 
getparam  and  picks  up  the  input 
parameters , then  goes  and  interprets 
each  parameter.  If  macro/micro  is 
passed,  c5  is  set.  If  a class  list 
is  passed,  then  all  classes  are 
eliminated  from  display,  then  only 
those  passed  are  displayed.  If  'cr' 
is  a parameter,  the  crosshairs  are 
turned  on  and  a new  range  is  deter- 
mined. If  the  new  xmin  the  new 
xmax,  then  select  interprets  this  as 
an  instruction  to  go  back  to  original 
xmin  and  xmax.  If  cbxxx  is  a para- 
meter then  cl2  is  set  to  xxx.  If 
' prob ’/’ count ' is  passed  then  c6  is 
set  accordingly.  The  program  exits  by 
calling  "pcos"  if  the  current  moos 
function  is  probconf  or  else  calls 
npcos . 

See  following  page 
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| 


getparam 


csdata  code  = 
call  pcos  else 
call  npcos 


Return 


ye  8 

Set  cl  2 to  xxx 

<^"cb"? » 

the  new  # of 

bins 

no 

Set  c6  to  "0" 

vps  Vlprob'V 

for  prob,  "1" 

yes  / 

t / "count"?  N 

for  counts 

{ 

/'Scanned  \ no 

\all  param^ 

Utility  Function  Name: 

Calling  Sequence: 

Input  Parameters: 

( number) 

("on"  "off") 

Output  File  Settings: 
"sysdata"  file 

Program  Description: 
Flow  Chart: 


1 


sense 


Type  in  "sense  number  on/off" 


Is  an  integer  value  between  1 and 
36  representing  the  sense  switch 
to  be  manipulated. 

Determines  the  value  to  be  set  into 
sense  switch  (number) : "on"  causes 

the  sense  switch  to  be  set  = 1, 
"off"  sets  the  sense  switch  = 0. 


The  CSS6  word  in  sysdata  contains 
the  36  sense  switches,  numbered 
from  left  to  right. 


"sense"  modifies  CSS6  in  the 
"sysdata"  file  by  setting  an 
appropriate  bit  to  1 ("on")  or  0 
("off")  as  directed  by  the  user. 
Sense  switches  may  be  used  by  the 
program  to  control  hardcopy  or 
display  output  via  use  of  the 
internal  system  call  "sense$switch" 


See  following  pages. 
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getparam 


print  error 


<3*  switch  *36 


switch  = i 


Return 


Internal  Subroutine  Name : 


Calling  Sequence: 


sense$switch 


call  sense$switch  (sw, index) 


Input  Parameters : 


is  an  integer  value  representing 
the  sense  switch  to  be  tested. 


Output  Parameters : 


index 


Program  Description : 


is  an  integer  value  equal  to  the 
value  of  sense  switch  sw  (1  = "on", 
0 = "off"). 


"sense$switch"  returns  to  the 
calling  program  a parameter  equal 
to  the  value  of  a specified  sense 
switch  (CSS6  in  file  "sysdata") . 


Flow  Chart: 


See  following  page . 
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Utility  Function  Name: 
Calling  Sequence: 
Program  Description: 


seq 

type  in  "seq" 

"seq"  is  used  to  sequence  through 
eigenvector  projections  of 

data,  sequence  through  coordinate 
projections  of  data,  sequence 
through  generalized  discrimirant 
vector  projections  of  data,  and 
sequence  two-space  projections 

of  a three-space  non-linear 
mapping.  The  program  determines 
which  subroutine  to  call  by 
checking  the  current  option 
number . 

See  following  page. 


Flow  Chart: 


Call 

crdv$sa2 


Current'- 
tion  #=197> 


Call 

crdv$sal 


eigv$eigen 

sequence 


Current  v 
ition  #=201  ? 


Current. 

< option#=^>  yes 

^ On/. 


Call 

>gndv$gendv 

sequence 


Return 


Programmer  Aid  Name 


Calling  Sequence: 


Type  in  "setdata  (filename)" 


Input  parameters : 
(filename) 


The  name  of  a system  temporary  file 
of  which  a setdata  is  desired. 


Program  Description: 


"setdata"  allows  a user  to  insert 
data  into  a specified  area  or 
areas  of  a specified  temporary  file, 
Type  of  input  can  be  integer, 
floating  point,  36-bit  stream,  and 
alpha . 


Flow  Chart : 


Next  page . 
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sin  presents  a list  of  all 
incomplete  lo.^ic  nodes  and  asks  the 
user  to  select:  one.  The  one 
selected  becomes  the  current  logic 
node.  If  this,  is  the  first  time 
logic  has  been  generated  for  this 
data  set,  the  current  logic  node  is 
automatically  set  to  node  1:  If 

ndim  and  nclasses  of  data  tree  ^ 
ndim  and  nclasses  of  decision  tree, 
the  user  is  asked  if  he  wishes  to 
continue.  If  he  answers  yes,  new 
logic  is  being  created  for  the 
current  data  set.  If  no,  control 
is  returned  to  the  command  level 
and  the  current  decision  tree 
remains  unchanged. 


Next  Page 

j 
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treeptr4_ptr  s(4) 
sysptr -4-  ptrs(l ) 


Get  tree  name  & 
node  name  from 

words  1-3  of 
sysdata 


Make  segment 
treenamell  j 

nodename  j|, logic 


* t 


Does  no 


from  the 
tree  name  file 


SH2*—  ndim 
SH3  -4—  nlows 
SH5-*-  800+2* 
SH3+ndim* 
(ndim+1 ) 


Print 


message 
that  there  are 
incomplete 
logic  nodes 


Output  error 
mes  sage 


data  classes 
or  logic  node  (i) 


Print  logic  node(l 
incomplete! 


Return 


as  an  i 

node  & print 
data  classes 
associated  with 
this  logic  node 


h= r- 

Ask  user  to 
select  a logic 
inode 

“ I J 

Is 

v selected  node  r 
iin  incomplete 
Sicxle 

-- i:e:_ 

| SHI  -+  - 
[selected  node 


1 

Place  necessary 

info  in  scratch 

(i.  e.  , # of  data 

classes  & data 

classes  at  this 
logic  node  I 


ptrs(s)  -4 — 
logic  file  ptr 


Print  message 
to  this 
effect 


Return 
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Internal  Subroutine  Name: 


sln$cp 


I 

Calling  Sequence: 


Input  Parameters : 

ptrs(l) 
ptrs (2) 
ptrs (3) 
ptrs (4) 


call  sln$cp  (ptrs,  flag)”; 


sysdata  ptr 
scratch  ptr 
display  ptr 
treename  file  ptr 


Output  Parameters : 
ptrs (5) 
flag 

set  to 
4 

i 3 

2 

1 

0 

< ' 

Program  Description: 


Flow  Chart : 


current  logic  file  ptrs 
fixed  bin  (35) 
if 

no  logic  file 

ndim  and  nlows  of  t'reename  file  / 
ndim  and  nlows  of  logic  file 
no  complete  pairwise  nodes  exist 
selected  logic  node  is  illegal 
no  errors  occur 


"sln$cp"  presents  a list  of 
completed  pairwise  logic  nodes  and 
asks  the  user  to  select  one.  The 
one  selected  becomes  the  current 
logic  node. 

See  following  page 


Initiate  segment 
"tree  name// 
node  name  //  . logi< 


Get  ndim  & nlow 
from  the  tree 
name  file  & ndin 
& nlows  from 
the  logic  file 


Return 


Return 


npairwise 


<llnode  ? 


npairwise  — 
npairwise  + 1 


pair  (npairwise) 


aw 


Print  i as  a pai 
wise  node  & its 
associated 
data  classes 


JAsk  user  to 
select  a log: 
node 


Return 


Read 

Jogic  node 


Internal  Subroutine  Name : 


sln$gn 


Calling  Sequence: 

call  sln$gn  (lptr,  sn , nn,  ncls, 
low) 

Input  Parameters : 

lptr 

ptr  pointer  to  the  mooslogic  file 

sn 

fixed  (35)  logic  node  under  which 
new  logic  nodes  are  being  added 

ncls 

fixed  (35)  number  of  logic  nodes 
to  be  added  to  MOOSLOGIC  file 

low 

(72)  char  (4)  array  of  node  names 
present  at  logic  node  sn. 

Output  Parameters : 
nn 


fixed  (35)  an  error  flag.  -1 
indicates  that  the  mooslogic  file 
already  has  the  maximum  number  of 
logic  nodes.  -2  indicates  that 
some  entries  in  the  low  array  are 
not  members  of  the  data  set  on 
which  logic  is  being  designed. 


Program  Description: 


I 

Flow  Chart : 


sln$gn  finds  a free  slot  for  a 
new  logic  node  in  the  node  part  of 
the  structure  part  of  the  mooslogic 
file.  If  a slot  can  be  found,  it 
creates  a new  logic  node  using  the 
information  that  was  passed  to  it 
and  returns.  If  any  element  in 
the  array  of  class  names  does  not 
correspond  to  the  data  set  on  which 
logic  is  being  designed,  nn  is  set 
to  -2.  If  the  node  part  of  the 
structure  part  of  the  mooslogic 
file  is  full,  nn  is  set  to  -1. 


See  following  page 
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Internal  Subroutine 
Calling  Sequence: 

Input  Parameters: 
logicptr 
nodenum 

index 

ndim 

Program  Description: 


Name : sphere 

call  sphere  (logicptr,  nodenum, 
index,  ndim) 


pointer  to  MOOS  logic  file  (ptr) 

node  number  of  logic  having  this 
hyperregion  (fixed  (35)) 

index  from  beginning  of  logic 
file  to  the  logic  block  for 
this  hyperregion.  (fixed  (35)) 

data  dimensionality 

sphere  generates  FORTRAN  code, 
under  the  "fortlogc"  option  of 
MOOS,  for  a closed  decision 
region  using  the  hypersphere 
logic  creation  option 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation  of 
this  subroutine. 
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Internal  Subroutine  Name 

Calling  Sequence: 

Output  Parameter: 
i 


Program  Description: 


ss$all_part 

call  ss$all__part(i) 


fixed  (35)  set  to  1 if  only  vectors 
which  fall  at  a node  are  to  be  usect 
0 other  wise  (see  program  descrip- 
tion) . 


ss$all_part  asks  the  question: 
'Should  the  covariance  matrix  and 
mean  vectors  used  in  calculations 
be  computed  from  only  those  vectors 
which  fall  at  a given  logic  node?" 

If  the  user  answers  yes,  "i"  is 
set  to  1,  otherwise,  "i"  is  set 
to  0. 
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Internal  Subroutine  Name : 


ss$display 


Calling  Sequence:  call  ss$display  (ndim,  nn,  ptrs, 

low,  vl,  v2 , tc,  x)" 


Input  Parameters : 
ndim 
nn 

ptrs 


low 

vl 

v2 

tc 

x 


fixed  (35)  number  of  dimensions 

fixed  (35)  number  of  nodes  to  be 
projected 

(5)  ptr  ptrs(l)  - sysdata 

ptrs (3)  - display  file 
ptrs (5)  - mooslogic 
file  if  it 
exists 

(72)  char(4)  array  of  node  names  to 
be  projected 

(100)  float  "x"  projection  vector 

(100)  float  "y"  projection  vector 

char(l)  tree  character  of  projected 
data  set. 

fixed  (35)  set  to  1 if  ss$display 
is  called  from  logic  design,  0 
otherwise . 


Output  File  Settings:  display  is  set  up  for  a cluster 

or  scatter  plot. 


Program  Description:  ss$display  zeros,  then  initializes 

the  display  file  by  loading  the  given 
parameters  according  to  standard 
two-space  display  file  format. 


Flow  Chart : 


See  following  page 


Zero  display 
file  to  word 


Load  parameter' 
in  display  file 


Return 


Internal  Subroutine  Name : 


ss$displayl 


Calling  Sequence: 


call  ss$displayl  (nd,  nn,  ptrs, 
low,  vl,  tc,  x) 


Input  Parameters : 
nd 
nn 

ptrs 


low 

vl 

tc 

X 


Output  File  Settings : 


fixed  (35)  number  of  dimensions 

fixed  (35)  number  of  nodes  to  be 

projected. 

(5)  ptr  ptrs(l)  - sysdata 
ptrs (3)  - csdata 
ptrs (5)  - mooslogic  file 
if  it  exists 

(72)  char(4)  array  of  node  names 
to  be  projected,, 

(100)  float  one-space  projection 
vector . 

char(l)  tree  character  of 

projected  data  set„ 

fixed  (35)  set  to  1 if  ss$displayl 
is  called  from  logic 
design,  0 otherwise. 


csdata  is  set  up  for  one-space 
display. 


Program  Description:  ss$displayl  zeros,  then  initializes 

the  csdata  file  by  loading  the  given 
parameters  according  to  standard 
one-space  display  file  format. 


Flow  Chart : 


See  following  page 
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Internal  Subroutine  Name : 


ss$message 


Calling  Sequence:  call  ss$message  (disptr,  ml,  m2) 
Input  Parameter: 

ptr  pointer  to  display 
fixed  (35)  measurement  number 
fixed  (35)  measurement  number 


Program  Description:  ss$message  loads  the  phrase: 

"projected  on  meas  (ml)  and  (m2)" 
in  words  19  - 25  of  the  display 
file.  This  phrase  appears  under 
subsequent  scatter  or  cluster 
plots . 


disptr 

ml 

m2 


4-532 


I 


arm 


Internal  Subroutine  Name 


Calling  Sequence 


Input  Parameters 
disptr 


ml 


Program  Description : 


ss$messagel 


call  ss$messagel  (disptr,  ml) 


ptr 


pointer  to  "csdata" 
file 


fixed  (35)  measurement  number 


ss$message  1 loads  the  phrase: 
"projected  on  meas . (ml)"  in  words 
2 - 10  of  the  "csdata"  file.  This 
phrase  appears  under  subsequent 
one-space  plots. 
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Utility  Function  Name 


summrycm 


Calling  Sequence : 


type  in  "summrycm" 


Program  Description: 


summrycm  generates  the  four 
pointers  if  the  display  file  code 
indicates  a confusion  matrix, 
determine  if  a hardcopy  is  desired 
and  then  calls  conmatsm. 


Flow  Chart : 


See  following  page 
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summrycm 


et  pointers  to 
"sysdata", 
"display" 


Return 


Set  pointers  to 
tree  name  file 
"scratch" 


[Sit  second 
j word  to  0 


Call 

jconmatsm 


MOOS  Function  Name: 


tapeoput 


MOOS  Function  Number: 


Calling  Sequence 


type  in  "tapeoput  [ ( treename) ]" 


Input  Parameter: 


treename 


char(8)  tree  to  be  written  on 
tape 


Program  Description: 


tapeoput  first  asks  the  user  to 
supply  a tape  label  for  use  in  the 
operator  mounting  message.  The 
user  must  then  input  the  tape  file 
number  "he"  wishes  to  write  the 
tree  into.  The  tree  is  written 
in  a format  compatible  with 
tapeinput  (described  in  more 
detail  in  Section  2).  The  tape 
drive  must  be  7 track,  556  B.P.I. 

tapeoput  uses  subroutine 
t_save$herror  to  output  error 
messages  and  t_read$record  to  read 
each  physical  tape  record. 


Flow  Chart: 


See  following  page. 
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I 


J 


tapeoput 


Start 


I 


Ask  user  to  input 
:ape  label 


Ask  user  to 
input  file  # to 
be  written 


L 


Write  the  tree 
onto  the  tape 


Return 
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MOOS  Function  Name:  tap input 

MOOS  Function  Number:  2 


Calling  Sequence : 
Input  Parameters : 


Type  in  "tapinput  (treename)" 

A system-unique  8-character  tree- 
name  . 


Output  File  Settings : 
"sysdata"  file 


TREENAME  file 
DATACLASS  files 


Replace  a "notatree"  entry  in  the 
FOREST  section  with  a new  tree 
entry  and  add  an  entry  to  the 
SCHOOL  segment  (or  replace  a 
"nono"  entry)  for  each  apriori 
node . 

Set  CSS1  = treename) 

CSS 2 = **** 

Reset  CSS4  if  appropriate 

Create  a file  under  name  "treename" 
and  set  parameters  within  the  file 
as  appropriate  for  the  input  data. 

Create  a file  for  each  apriori 
data  class  and  store  the  appropriate 
data  vectors. 


Program  Description:  "tapinput"  inserts  a data  tree 

(treename)  into  the  temporary 
storage  area  of  the  MOOS  user 
from  a magnetic  tape  (format 
described  in  the  MOOS  user's 
manual.  Section  2). 


1 


i 


Flow  Chart : 


tapinput  uses  subroutine 
t_save$herror  to  output  error 
messages . 

See  following  page 
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tapinput  f . 

Start  \ 

A--  

input  tape 
serial  number 

j .J 

input  tape  file 

input  tree 

^ number 

dimensionality 

skip  to  that 
file  number 


of  file 


T no 

calculate 
number  of 
vectors 


/vector\ 
ielong  to 

Ssj'sr 


, create  new  I 
Idata  class  file! 
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Internal  Subroutine  Name : 


tfs 


Calling  Sequence : 

Input  Parameters : 
tptr 

no dename 


call  tfs  (tptr,  nodename,  index) 


pointer  to  tree  name  file 

four  character  node  name  of  node 
to  be  located 


Output  Parameter:  index-relative  index  of  (nodename) 


Program  Description:  tfs  searches  through  the  entry 

portion  of  the  tree  name  file  for 
(nodename) . The  relative  posi- 
tion is  returned  in  index.  If 
any  errors  occur,  index  is  set  to 
-1. 


Flow  Chart : 


See  following  page 


tfs 


p 

t 


' 


I 


I 

I 


Start 


y 

i 


Search  for 
(nodename)  in 
entry  portion  of 
tree  name  file 


Return 


I 
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Internal  Subroutine 

Calling  Sequence: 

Input  Parameters : 
exp 

nexp 

Program  Description 


Flow  Chart : 


Name : transgen 


call  transgen  (exp,  nexp) 


an  array  of  up  to  75  expressions 
(max.  of  300  characters/expression) 

number  of  expressions 


"transgen"  creates  a PL/1  source 
program  called  "msxform. p^l"  in 
the  users  login  working  directory. 

A number  of  standard  statements 
are  placed  at  the  beginning  of 
this  program.  The  entered  state- 
ments are  inserted  next.  Then 
another  group  of  standard  state- 
ments are  placed  at  the  end  of  this 
program.  Upon  completion  of  this, 
the  PL/1  compiler  is  called  to 
compile  "msxform.pi’i" , 


Next  page 
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transgen 


Insert  statements: 


"msxform:  pnc  (pi , ndiml , p2,  ndim2); 

del  (pi,  p2,  ptrl,  ptr2)  ptr; 

del  (i,  ndiml,  ndim2)  fixed  bin  (35); 

del  (om(100),  nm(100))  float; 

del  flot  float; 

ptrl  = pi; 

ptr2  = p2; 

do  i = 1 to  ndiml  ; 

om(i)  = (ptrl flot); 

ptrl  = addrel  (ptrl,  1); 

end; 

do  i = 1 to  min  (ndiml,  ndim2); 

nm(i)  = om(i); 

end; 

if  ndim2  ndiml  then  do  i = (ndiml  + 1)  to  ndim2; 
nm(i)  = 0; 

end;" 


into  "msxform.  p LI". 


T'-'P 


( A 


Insert  all  "exp" 
expressions  into 
"msxform.  pL  1"; 


Insert  statements: 

"do  i = 1 to  ndim2 ; 
ptr2— »flot  = nm(i); 
j ptr2  ~ addrel(ptr2,  1); 
end; 
return; 
end; " 

into  "msxform.  pL  1" 


[Compile 

."msxform. p LI" 
py  calling  the 
I PL/1  compiler  to 
create  segment 
'msxform" 


T 

Delete  segment 
"msxform.  p LI" 


’ L 

Return 


4-545 


MOOS  Function  Name : 


MOOS  Function  Number: 


Calling  Sequence : 


Type  in  "tree draw 
[Ttreename^j  [OnodenameT]  " 


Input  Parameters : 


standard  optional  data  set 
selection  parameters 


Program  Description: 


tree draw  first  checks  the  number 
of  lowest  nodes  in  the  selected 
tree.  If  there  are  more  than  32 
lowest  nodes,  the  lowest  level, 
and  possibly  the  next  lowest  level 
will  not  be  displayed.  If  a tree 
has  more  than  32  nodes  on  the  first 
level,  nothing  will  be  drawn. 

Information  returned  by 
treedraw$structure  is  used  in 
determining  the  relative  position 
of  each  node  on  the  screen  and  the 
drawing  of  connecting  lines. 


Flow  Chart: 


See  following  page 


f 
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treedraw 


j 

Cal 

El 

treedraw$structure 

I 


I 


# of 
lowest  nodes 
> 32 


yes 


no 


Determine  which 
level  to  cut  off 
display 


I 


J 


Call 

:reedraw$  structure 
with  cutoff 
■leveL-ae^  _ 


jDetermine  1 

separation  be- 
tween levels 

I i 


Determine 
vertical  separa- 
tion between 
lowest  nodes 
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Determine  verTT- 
cal  positions  of 
all  intermediate 
nodes  & coords, 
of  connecting 
lines 


I 


Display  node 
names  and 
connecting 
lines 


Return 
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Internal  Subroutine  Nani.; 


Calling  Sequence : 


Input  Parameters: 


trnum 


treedraw$ structure 


call  treed"aw$structure 
(trnam,  cm  a,  cln,  fcl,  cd , nl, 
nd,  d,  L,  nn , nld) 


char(8)  tree  name 

char (4)  node  name 

fixed  (35)  cutoff  level.  If  set 
to  1 entire  structure  will  be 
rotur  ■ Otherwise,  L show:  j 
be  set  t,  Lowest  level  about  which 
information  is  desired. 


Output  11  urometer: 


(74)  char(4)  array  of  intermediate 
node  names. 


(74)  fixed  (35)  array  containing 
the  "first  class"  (S4  in  "sysdata") 
indices  which  correspond  to  the 
cln  array. 

(74)  fix  : (35)  arrav  containing 
the  dep's  of  each  intermediate 

node . 

(6)  fixed  (35)  array  containing 
number  cf  nodes  at  each  level. 


(72)  ■ .,ar'  4)  array  of  lowest  node 


(72)  Fixed  (35)  arrav  containing 
the  deDth  of  each  iowc>s^  node. 

fixed  (35)  lowest  level  found. 


fixed  (35)  number  of  intermediate 
nodes . 
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nld 


fixed  (35)  number  of  lowest  nodes 


4-550 


treelist 


Type  in  "treelist" 


This  routine  lists  the  trees  and 
nodes  under  these  trees  present 
in  the  "sysdata"  file.  This 
information  is  obtained  from  the 
forest  and  school  sections  of 
"sysdata" . 


treelist 


MOOS  Function  Name : 


trnsform 


MOOS  Function  Number: 
Calling  Sequence : 
Input  File  Settings: 


7 

Type  in  "trnsform" 

The  routine  assumes  a rank-order 
display  file  format 


Output  File  Settings: 
"sysdata" 
Treename  File 

Data  Class  Files 
Program  Description: 

j 


i 


i 

i 


IL  u 


A new  tree  is  created  in  sysdata 

A file  under  the  name  "treename" 
is  created.  Entries  are  made  for 
the  senior  node  and  all  other  nodes 
of  the  tree  "treename" 

Files  are  created  for  each  lowest 
node  of  "treename" 


"trnsform"  along  with  "tmsform$ 
recursive"  and  "trnsform$mmcv" , 
takes  a given  tree  and  from  this 
tree  extracts  a selected  set  of 
measurements  (i.e.  those  measure- 
with  a star  associated  with  them 
in  the  d7  portion  of  the  display 
file)  and  creates  a new  tree 
with  these  selected  measurements. 

The  traversal  of  the  given  tree 
and  copying  of  this  routine  is 
done  recursively.  The  recursive 
rule  used  in  traversing  is : 

visit  the  root 

do  i = 1 to  number  of  subtrees  of 
root;  traverse  the  it^  sub- 
tree of  root 

end 

Where  visiting  the  root  means  (in 
this  case)  copying  the  node  and 
if  a lowest  create  a data  class 
file. 
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NNM* 


Flow  Chart : 


trnsform 


Start 


. ' 

Call 

ut$ckparam 

[index 

-73 

J 

1 

Get  tree  char,  of  tree 
to  be  copied,  dimen- 
sionality of  data,  # of 

classes  & list  of 
selected  measurements 
from  displav  file 

T ~ ■ 


Copy  informa- 
tion of  senior 
node 


Initialize  the  new 
treename  file  & 
make  a slot  in  it 
for  the  senior 
node 


Call  trnsform$ 
Recursive  to  be- 
gin traversing 
recursively 


Return 


i J 


Internal  Subroutine  Name : 


tms  f orm$mmcv 


1 


Calling  Sequence: 


call 


trns f orm$mmcv  (ptr,  sysix) 


Input  Parameters : 
Etr 


sysix 

fl 


A ptr  to  the  top  of  the  tree  name 
file  where  merging  of  means  and 
covariance  will  take  place 

A relative  index  into  sysdata 
which  is  an  index  to  a node  where 
the  means  and  covariance  are  to 
be  merged  into 


Output  File  Settings : 
Treename  File 


The  associated  tree  name  file  is 
modified  to  reflect  the  merging 
of  the  means  and  covariance 


Program  Description: 
Flow  Chart : 


"tmsform$mmcv"  merges  the  means 
and  covariance  of  all  nodes  at  the 
next  immediate  level  below  the  node 
pointed  to  by  sysix  into  the  node 
at  sysix 


See  next  page 


j 


« 

1 


4 
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trnsform$mmcv 


Call  tfs  (ptr, 
classname,  ix)  to 
get  pointer  to 
senior  node 


Current  — 
firstclass(sysixi 


Return 


Get  classname 
at  current 


Internal  Subroutine  Name : 


trnsform$recursive 


Calling  Sequence: 

call  tmsform$recursive  (current, 
newcurrent,  numdim,  lencov,  list, 
ntptr,  otptr,  tptr,  sptr,  otreecnar, 
ntreechar,  ji,  ndim) 

Input  Parameters : 

current 

an  index  into  sysdata  of  the  current 
node  of  the  tree  being  copied 

newcurrent 

an  index  into  sysdata  of  the  copy 
of  current 

numdim 

the  dimensionality  of  the  data  in 
the  copied  tree 

lencov 

the  length  of  the  covariance 
matrix  in  the  copied  tree 

list 

an  array  of  size  numdim  which 
contains  the  measurement  numbers 
that  are  to  be  extracted  from  the 
tree  being  copied  and  placed  into 
the  copied  tree 

ntptr 

a ptr  to  the  top  of  the  new  tree- 
name  file 

otptr 

a ptr  to  the  top  of  the  old  tree- 
name  file 

tptr 

a current  ptr  into  the  new  tree- 
name  file  and  it  is  a ptr  to  the 
next  available  slot 

sptr 

a pointer  to  sysdata 

otreechar 

the  tree  character  of  the  tree 
being  copied 

ntreechar 

the  tree  character  of  the  copied 
tree 

11 

=3  if  senior  node  of  tree 
=2  otherwise 

ndim 

dimensionality  of  data  in  tree  to 
be  copied 
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Output  File  Settings : 


same  as  "trnsform" 


Program  Description:  "trnsform$recursive"  is  the  part 

of  trnsform  which  does  the 
recursion  of  copying  the  tree 


Flow  Chart : 


See  following  page 
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trn8form$recursive 


create  a data 
class  file  for 
the  current 


class 


* . 

fill  in  the  data  class 

with  its'  vector  data 
and  accumulate  informa- 
tion for  calculation  of 

means  and  covariance 
matrix 

, I 

In  the  tree  name  file,  ; 

fill  in  the  means  and  ) 
! covariance  matrix  for  j 

I the  current  class  j 
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Internal  Subroutine  Name: 
Calling  Sequence: 

Input  Parameters: 
logicptr 

nocieptr 

Program  Description: 


twospace 

call  twospace  (logicptr,  nodeptr) 


pointer  to  the  MOOS  logic  file 
(ptr) 

pointer  to  two-.epace  logic  node 
(ptr) 

twospace  is  the  subroutine  in  the 
"fortlogc"  option  of  MOOS  which 
creates  FORTRAN  code  for  a two- 
space group  logic  node 

See  the  subroutine's  program 
listing  for  a more  detailed 
description  of  the  operation 
of  this  subroutine. 
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Utility  Function  Name: 
Calling  Sequence: 

Input  File  Setting: 


un$bbc 

Type  in  "un$bbc" 

assumes  rank  order  display  file 
format 


Program  Description:  if  sortorder  is  ascending,  for 

each  class,  nun$bbcn  places  a 
in  d7  for  the  measurement  that 
has  the  smallest  value  for  that 
class 

if  sortorder  is  descending, 
"un$bbc"  for  each  class,  places 
a in  d7  for  the  measurement 
that  has  the  largest  value  for 
that  class 


Flow  Chart : 


See  following  page 


Utility  Function  Name: 
Calling  Sequence : 

Input  File  Setting: 


un$bbcp 

Type  in  "un$bbcp" 

assumes  rank  order  display  file 
format 


Program  Description: 


Flow  Chart: 


if  sortorder  is  ascending, 
"un$bbcp" , for  each  class  pair 
places  a in  d7  for  the 
measurement  that  has  the  smallest 
value  for  that  class  pair 

if  sortorder  is  descending, 
"un$bbcp" , for  each  class  pair, 
places  a in  d7  for  the 
measurement  that  has  the  largest 
value  for  that  class  pair 


see  following  page 


ncis  jncls-1 ) 
2 


ascending 


. V 

Find  measurement 

with  smallest  value 
for  class  pair  (i)  & 
place  a in  d7  for 
that  measurement 


/ ^Call  rnk$printout 


I 


Find  measurement 
with  largest  value 
for  class  pair  (i)  & 
place  a in  d7 
for  that  measurement 


Internal  Subroutine  Name: 


ut$ckparam 


Calling  Sequence: 


call  ut$ckparam  (index,  ptrs, 
treename , nodename) 


Input  Parameter  Settings:  Before  entry  into  this  routine 

two  variables  must  be  set.  The 
variable  index  must  contain  the 
MOOS  option  number  to  be  placed 
in  the  sysdata  file  (CSS5)  and 
ptrs  must  point  to  the  argument 
list  that  was  entered  at  the 
command  level . This  list  will 
be  used  to  insert  new  names  into 
the  current  treename  (CSS1)  and 
current  classname  (CSS2)  in  the 
sysdata  file.  The  pointer  may 
be  set  by  using  the  subroutine 
cu_$arg_list_ptr  (ptrs(l))  prior 
to  entry  into  ckparam. 


Output  File  Settings  The  sysdata  file  will  be  updated 

with  the  current  option  number, 
the  current  tree  name  and  the 
current  class  name  and  the  current 
tree  name  file  will  contain  the 
names  of  the  lowest  nodes  (L5) . 


Program  Description:  Upon  entry  the  sysdata  file  is 

initiated.  If  it  does  not  exist, 
moosinitiate  is  called  and 
sysdata  is  again  initiated.  The 
number  of  arguments  is  counted 
and  the  index  is  checked  for  a 
value  less  than  20.  If  this 
case  exists,  a tree  name  is 
expected  in  the  command  parameter 
list  and  this  tree  name  is  inserted 
into  the  FOREST,  the  class  name 
is  set  to  the  senior  class  (****) , 
and  a new  tree  name  segment  is 
created . 


Then,  if  the  number  of  optional 
arguments  equals  one,  the  par- 
ameter will  be  retrieved  and 
determined  to  be  either  a 
tree  name  (5-8  characters) , or 
a class  name  (4  characters) . 

This  name  will  be  inserted  into 
CSS1  or  CSS2  of  the  sysdata  file. 
Then  the  lowest  node  will  be 
found  using  this  node  as  the 
senior  node . If  the  argument 
is  a class  name,  the  class  must 
exist  somewhere  in  the  current 
tree  SCHOOL. 

If  two  optional  arguments  are 
input , both  a tree  name  and 
class  name  are  retrieved,  in- 
serted in  CSS1  and  CSS2  of 
sysdata,  and  the  lowest  nodes 
are  found  using  the  class  name 
as  the  senior  node.  Again  the 
class  name  must  exist  somewhere  in 
the  SCHOOL  and  be  associated  with 
the  current  tree. 

If  there  are  no  optional  arguments, 
the  current  tree  name  and  class 
name  will  be  retrieved.  Before 
the  routine  exits , tree  name  is 
set  to  the  current  class  and  the 
four  pointers  are  set  as  follows: 

ptrs(l)  points  to  the  "sysdata" 
file 

ptrs(2)  points  to  the  "scratch" 
file 

ptrs(3)  points  to  the  "display" 
file 

ptrs(4)  points  to  the  current 
tree  name  file 

Flow  Chart : See  following  page 
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. ...  . 


Internal  Subroutine  Name: 


ut$ge tnode 

Calling  Sequence:  call  ut$ge tnode (index , name , array) 

Input  Parameter  Settings : index  must  be  set  to  the  relative 

word  in  sysdata  of  the  node  to  be 
retrieved. 

name  must  be  set  to  the  name  in 
the  SCHOOL  of  the  node  to  be 
retrieved  if  and  only  if  index 
is  set  to  zero,  otherwise  it  is  a 
dummy  variable. 


h 


f 


4 


i 


Program  Description: 


The  routine  first  initializes  the 
"sysdata"  file  and  then  tests 
index.  If  zero,  the  routine 
searches  the  SCHOOL  portion  of 
the  file  until  it  finds  the  node 
specified  by  the  variable  name 
in  the  parameter  list.  The 
relative  word  address  will  be 
placed  in  index  and  the  node  will 
be  retrieved. 

If  the  value  of  index  is  not 
zero,  it  will  use  this  value  as 
the  relative  word  address  into 
the  sysdata  file  for  the  node  to 
retrieve. 

If  the  index  is  between  64  and 
140,  the  contents  of  node  in  the 
FOREST  will  be  returned  in  the 
variable  "array",  and  if  the 
index  is  greater  than  or  equal 
to  144  the  contents  of  a node 
in  SCHOOL  will  be  returned. 

In  the  case  of  a FOREST  node  the 
first  and  second  word  of  the 
array  will  be  the  name  of  the 
node,  the  next  four  words  will 
be  the  number  of  dimensions,  the 
number  of  classes  below  this 
node,  the  index  of  the  first 
class  below  this  node  and  the 
number  of  vectors  in  this  node. 

The  last  two  words  are  set  to 
zero. 

1 
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In  the  case  of  a SCHOOL  node,  the 
first  word  will  be  the  class  name 
and  the  next  seven  words  will  be 
the  number  of  dimensions , the 
number  of  classes  below  this  node, 
the  index  of  the  first  class 
below  this  node,  the  number  of 
vectors  in  this  node,  the  depth 
of  this  node  within  the  tree 
structure,  the  index  of  the 
senior  class  node  for  this  node, 
and  the  index  for  the  next  class 
node  in  this  level. 

If  any  errors  occur,  the  index 
is  set  to  negative  one  and  the 
routine  exits. 


| 


. v 


Internal  Subroutine  Name 


Calling  Sequence 


name 


"index”  must  be  set  to  the 
relative  word  in  sysdata  of  th 
node  to  be  retrieved. 


name"  must  be  set  to  the  name 
in  the  SCHOOL  of  the  node  to  be 
retrieved  if  and  only  if  index 
is  set  to  zero,  otherwise  it  is 
a dummy  variable. 


must  be  a pointer  to 


See  ut$getnode.  The  major 
difference  between  ut$getnode  and 
ut$getncdel  that  is  ut$getnodel 
does  not  make  a call  to 
;ics_$initiate  to  initiate 
sysdata.  The  calling  program 
must  initiate  sysdata  and  pass  a 
pointer  to  sysdata  to  ut$getnodel 


Flow  Chart 


See  ut$getnode 


Internal  Subroutine  Name : 


ut$putnode 


Calling  Sequence:  call  ut$putnode  (index,  name, 

array ) 


Input  Parameter  Settings:  "index"  must  be  set  to  the 

relative  word  in  sysdata  of  the 
node  to  be  inserted. 

''name"  must  be  set  to  the  name 
in  the  SCHOOL  of  the  node  to  be 
inserted  if  and  only  if  index  is 
set  to  zero,  otherwise  it  is  a 
dummy  variable. 

"array"  must  be  set  according  to 
the  format  described  in  the 
write  up  on  ut$getnode. 


Program  Description:  ut$putnode  inserts  a node  in  the 

sysdata  file  and  may  be  used  to 
update  existing  node  information 
i.e.,  ut$putnode  is  essentially 
the  opposite  of  ut$getnode.  If  £ 
errors  occur,  "index"  is  set  to 
negative,  one  and  the  routine 
exits . 


Flow  Chart:  See  following  page. 
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Internal  Subroutine  Name: 


ut$putnodel 


Calling  Sequence:  call  ut$putnodel  (index,  name, 

array,  sysptr) 

Input  Parameter  Settings : "index"  must  be  set  to  the 

relative  word  in  sysdata  of  the 
node  to  be  inserted. 

"name"  must  be  set  to  the  name 
in  the  SCHOOL  of  the  node  to  be 
inserted  if  and  only  if  index 
is  set  to  zero,  otherwise  it  is 
a dummy  variable. 

"array"  must  be  set  according  to 
the  format  described  in  the 
write-up  on  ut$getnode. 

"sysptr"  must  be  a pointer  to 
the  sysdata  file. 


Program  Description:  See  ut$putnode.  The  major 

difference  between  ut$putnode 
and  ut$putnodel  is  that 
ut$putnodel  does  not  make  a call 
to  hcs_$initiate  to  initiate 
sysdata.  The  calling  program 
must  initiate  sysdata  and  pass  a 
pointer  to  sysdata  to  ut$putnodel. 


Flow  Chart: 


See  ut$putnode 


Utility  Subroutine  Name : vec$del 


Calling  Sequence: 


type  in  "vec$del  (vname)" 


Input  Parameter: 
vname 


the  name  of  the  vector  to  be 
deleted 


Program  Description: 


"vec$del"  deletes  a vector  from 
the  users  "vectors"  file 


Flow  Chart : 


see  following  page 


vector  length 


Set  current 
option  # to  255  j 


Return 


Internal  Subroutine  Name : 


vec$get 


Calling  Sequence: 

Input  Parameters : 
vname 

vlength 

vptr 

Output  Parameter: 

vlength  set  to 

-1 

-2 

-3 

unchanged 


call  vec$get  (vname,  vlength, 
vptr; 


the  name  of  the  vector  to  be 
retrieved  char(8) 

the  length  of  this  vector 
fixed  bin  (35) 

a ptr  to  where  the  retrieved 
vector  is  to  be  stored 


if 

no  vectors  file  exists 
vname  does  not  exist 
if  vlength  f to  length 
of  vname  in  vectors  file 
no  errors  occurred 


Program  Description: 


vec$get"  retrieves  and  stores  a 
saved  vector  from  the  users 
'Vectors"  file 


Flow  Chart: 


see  following  page 


Q 


4-581 





Initiate 
'vectors"  file 


vlength^-  -1 


vname 

-'-exist?.. 


Does  v length 
= length  of  vnam^ 
in  "vectors"  file? 


Store  vector 
vname  starting 
at  location 


Return 


vec$hall 


Utility  Subroutine  Name: 
Calling  Sequence: 

Program  Description: 

Flow  Chart : 


type  in  "vec$hall" 


vec$hall  prints  or  hardcopies  all 
saved  vectors,  their  name , length 
and  value 


see  following  page 


Utility  Subroutine  Name: 


vec$lall 


Calling  Sequence: 


type  in"vec$lall" 


Program  Description: 


"vec$lall'  list  all  vectors  and 
their  associated  length  that 
exist  in  the  users  home  vectors 
file 


Flow  Chart: 


see  following  page 
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Initiate 

"vectors 


Output  error 
message 


“Make  current 
option  # »255 


Ir  two  columns 
(if  necessary)  list 
all  vectors  & the 
length  of  each 


Cali 

option 


Return 


Utility  Subroutine  Name : 


vec$list 


Calling  Sequence: 

Input  Parameter : 
vname 


Program  Description: 


type  in  "vec$list  (vname)" 


the  name  of  the  vector  to  be 
listed 


vec$list  lists  a vector  from 
the  users  "vectors"  file  by 
name 


Flow  Chart : 


see  following  page 


vec$list 
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I name 


1 


f"  Initiate 
"vectors" 
file 


Doe  s 
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no 
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f 

Does  no 

Vvname  exist?7 


i 

Print  vector 
name,  vector 
length,  and 
j vector 


1 

Set  current 
option  it  to  255 


I 

Call 

option 


I. 

Output  error 
message 


Of i i 1 f . Fun ? i on  Nam.': 


vec$save 


Sibling  Seq.,i-nce: 


type  in  "vec$save" 


Input  File  ,'iett  i nr  : 


display 


Output  File  Setting: 

"vectors"  (in 
users  home 
directory ) 


Program  Description : 


Flow  Chart: 


a scatter-cluster  or  a histogram 
display  file  format  must  exist 


makes  a new  entry  in  the  vectors 
file  for  me  saved  vector 


vec$save  saves  the  current  pro- 
jection vector  in  the  users 
vectors  file.  If  a scatter- 
cluster  display  is  a current 
display,  it  asks  the  user 
whether  he  wants  to  save  the  x 
or  the  y projection  vector  or 
both . 


See  following  page 
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Internal  Subroutine  Name : 


vec$save  it 


Calling  Sequence: 


call  vec$save_it  (vname,  fptr, 
vptr,  vlength , error) 


r 


■ 


Input  Parameters : 
vname 

fptr 

vptr 

vlength 

Output  Parameter: 
error 


Program  Description: 


the  name  of  the  vector  to  be 
saved  \char(8^J 

a ptr  to  the  top  of  the  "vectors" 
file 

a ptr  to  the  vector  to  be  saved 

the  length  of  the  vector  being 
saved  £fixed  bin  (35JJ 


set  if  any  errors  occur 
Qixed  bin  (35^  the  errors  are: 

0 - no  errors 

1 - if  no  more  room  to  save 

vectors 

2 - if  vname  already  exists 

"vec$save_it"  saves  a vector  in 
the  users  "vectors"  file 


Flow  Chart : 


see  following  page 


Internal  Subroutine  Name: 


wp 


Calling  Sequence: 
Input  Parameters: 
phrase 
progptr 

loc 


call  wp  (phrase) 


char  (168)  phrase  to  be  added 

ptr  external  static  pointer  to  file 
where  phrase  is  to  be  added 

fixed  (35)  external  static  index 
into  the  file  where  phrase  is  to 
be  added 


Program  Description: 

wp  first  searches  the  character  string  phrase  for  the 
end  delimiter  (%)  . All  characters  before  the  °/0  are  then  added 
to  the  file  associated  with  "progptr"  at  location  "loc",  loc 
is  then  updated  to  the  next  available  character. 
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